Changeset 38900 in project


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

"fix" test, update gloss incl

Location:
release/5/levenshtein/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/levenshtein/trunk/levenshtein-path-iterator.scm

    r38891 r38900  
    5858        (map-in-order
    5959          (lambda (elm)
    60 (print elm)
    6160            (let ((elm-cost (the number (car elm))))
    6261              (and
     
    8483              (lambda (value)
    8584                (let/cc continue
    86                   (set! generator
    87                     (lambda (k)
    88                       (set! yielder k)
    89                       (continue value)))
     85                  (set! generator (lambda (k) (set! yielder k) (continue value)))
    9086                  (yielder value) ) ) ) )
    9187            (let try ((r (sub1 rs)) (c (sub1 cs)) (path '()))
  • release/5/levenshtein/trunk/tests/levenshtein-test.scm

    r38891 r38900  
    236236          `((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)))
    237237        (vector-set! vec 1
     238          ;`((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))
     239          `((1 0 0 ,so) (2 1 0 ,io) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)))
     240        (vector-set! vec 2
     241          ;`((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do))
    238242          `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)))
    239         (vector-set! vec 2
    240           `((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do)))
    241243        (vector-set! vec 3
    242           `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do)))
     244          ;`((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do))
     245          `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)))
    243246        (vector-set! vec 4
    244           `((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do)))
     247          ;`((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do))
     248          `((1 0 0 ,so) (2 1 1 ,so) (3 2 2 ,io) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)))
    245249        (vector-set! vec 5
    246           `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do)))
     250          ;`((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do))
     251          `((1 0 0 ,so) (2 1 0 ,io) (3 2 2 ,io) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)))
    247252        vec))
    248253
  • release/5/levenshtein/trunk/tests/test-gloss.incl.scm

    r38733 r38900  
    111111;;
    112112
     113(define-syntax glossln
     114  (syntax-rules ()
     115    ((glossln)
     116      (begin
     117        (newline)
     118        (flush-output) ) ) ) )
     119
    113120(define-syntax glossn
    114121  (syntax-rules ()
    115122    ((glossn)
    116       (begin))
     123      (begin) )
    117124    ((glossn ?obj)
    118125      (begin
    119126        (display-gloss-marker)
    120         (display ?obj)
    121         (flush-output)) )
     127        (display ?obj)) )
    122128    ((glossn ?obj ...)
    123129      (begin
    124130        (display-gloss-marker)
    125         (for-each display (list ?obj ...))
    126         (flush-output)) ) ) )
     131        (for-each display (list ?obj ...))) ) ) )
    127132
    128133(define-syntax gloss
    129134  (syntax-rules ()
    130135    ((gloss)
    131       (newline))
     136      (glossln) )
    132137    ((gloss ?obj ...)
    133138      (begin
    134139        (glossn ?obj ...)
    135         (newline)) ) ) )
     140        (glossln)) ) ) )
    136141
    137142;Needs a format:
     
    149154      (begin
    150155        (glossnf ?fmt ?arg0 ...)
    151         (newline)) ) ) )
     156        (glossln) ) ) ) )
Note: See TracChangeset for help on using the changeset viewer.