New upstream version 17.5

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