diff options
Diffstat (limited to 'tools/tmap.scm')
-rw-r--r-- | tools/tmap.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tools/tmap.scm b/tools/tmap.scm index b75e2fd..f226910 100644 --- a/tools/tmap.scm +++ b/tools/tmap.scm @@ -1,14 +1,14 @@ ;;; sequence tests (define (less-than a b) - (or (< a b) #f)) + (or (< a b) (> b a))) (define (less-than-2 a b) (if (not (real? a)) (display "oops")) (cond ((< a b) #t) (#t #f))) (define (char-less-than a b) - (cond ((char<? a b) #t) (#t #f))) + (cond ((char<? a b) #t) (else #f))) (define (fv-tst len) @@ -194,7 +194,7 @@ ((null? p)) (set-car! p (- (random 100000) 50000))) (let ((fv-ran (copy fv))) - (sort! fv <) + (set! fv (sort! fv <)) (call-with-exit (lambda (quit) (do ((p0 fv (cdr p0)) @@ -204,7 +204,7 @@ (when (> (car p0) (car p1)) (format *stderr* "list: ~A > ~A at ~D~%" (car p0) (car p1) i) (quit))))) - (sort! fv-ran (lambda (a b) (< a b))) + (set! fv-ran (sort! fv-ran (lambda (a b) (< a b)))) (if (not (equal? fv fv-ran)) (format *stderr* "pair closure not equal~%"))) @@ -316,4 +316,5 @@ -;;; unsafe, strings, precheck types in vect cases
\ No newline at end of file + +;;; unsafe, strings, precheck types in vect cases |