Changeset 38901 in project


Ignore:
Timestamp:
08/29/20 03:22:15 (4 weeks ago)
Author:
Kon Lovett
Message:

interface includes only need scheme & module, shared vector part of interface

Location:
release/5/levenshtein/trunk
Files:
1 deleted
5 edited

Legend:

Unmodified
Added
Removed
  • release/5/levenshtein/trunk/levenshtein-cost-fixnum.scm

    r38874 r38901  
    55
    66(include "levenshtein-cost-interface")
     7
    78(module levenshtein-cost-fixnum COST-OPER
    89
  • release/5/levenshtein/trunk/levenshtein-cost-interface.scm

    r38874 r38901  
    44
    55(import scheme)
    6 (import (chicken base))
     6(import (chicken module))
    77
    88(define-interface COST-OPER (
  • release/5/levenshtein/trunk/levenshtein-sequence-interface.scm

    r38874 r38901  
    44
    55(import scheme)
    6 (import (chicken base))
    7 (import (chicken type))
     6(import (chicken module))
    87
    98(define-interface SEQUENCE-OPER (
  • release/5/levenshtein/trunk/levenshtein-sequence-vector.scm

    r38890 r38901  
    1515(import type-errors)
    1616
     17;;;
     18
    1719(define-type sequence (or vector list string (struct shared-vector)))
    1820(include "levenshtein-sequence-interface.types")
    1921
    2022;;;
     23
     24(define-record shared-vector)
     25(define-record-type shared-vector
     26  (make-shared-vector vec start end)
     27  shared-vector?
     28  (vec %shared-vector-vector)
     29  (start %shared-vector-start)
     30  (end %shared-vector-end) )
     31
     32;;;
     33
     34(define (*vector? obj)
     35  (or (vector? obj) (%shared-vector? obj)) )
     36
     37(define (error/type/vector loc obj)
     38  (error-argument-type loc obj "vector") )
     39
     40#; ;UNUSED
     41(define (check-*vector loc obj)
     42  (unless (*vector? obj)
     43    (error/type/vector loc obj))
     44  obj )
    2145
    2246(define (*vector-length vec)
  • release/5/levenshtein/trunk/tests/run.scm

    r38499 r38901  
    3232(define *csc-options* "-inline-global -local -inline \
    3333  -specialize -optimize-leaf-routines -clustering -lfa2 \
    34   -no-trace -unsafe")
     34  -no-trace -unsafe \
     35  -strict-types")
    3536
    3637(define *test-files-rx* (irregex '(: (+ graph) #\- "test" #\. "scm")))
Note: See TracChangeset for help on using the changeset viewer.