This fixes: `make check MES=guile'.
* tests/srfi-1.test ("map 1,2", "map 2,1", "for-each 1,2",
for-each 2,1"): Move from scm.test.
* tests/scm.test ("map 1,2", "map 2,1", "for-each 1,2",
for-each 2,1"): Remove.
(pass-if "map 2 " (sequal? (map (lambda (i a) (cons i a)) '(1 2 3 4) '(a b c d))
'((1 . a) (2 . b) (3 . c) (4 . d))))
-(pass-if-equal "map 1,2"
- '((0 . a))
- (map (lambda (x y) (cons x y)) '(0) '(a b)))
-
-(pass-if-equal "map 2,1"
- '((0 . a))
- (map (lambda (x y) (cons x y)) '(0 1) '(a)))
-
(pass-if "for-each" (sequal? (let ((acc '())) (for-each (lambda (x) (set! acc (cons x acc))) '(1 2 3 4)) acc) '(4 3 2 1)))
-(pass-if "for-each 1,2"
- (for-each (lambda (x y) (cons x y)) '(0) '(a b)))
-
-(pass-if "for-each 2,1"
- (for-each (lambda (x y) (cons x y)) '(0 1) '(a)))
-
(define xxxa 0)
(pass-if "set! " (seq? (begin (set! xxxa 1) xxxa) 1))
(pass-if "set! 2" (seq? (let ((a 0)) (set! a 1) a) 1))
(pass-if "first dummy" #t)
(pass-if-not "second dummy" #f)
+(pass-if-equal "map 1,2"
+ '((0 . a))
+ (map (lambda (x y) (cons x y)) '(0) '(a b)))
+
+(pass-if-equal "map 2,1"
+ '((0 . a))
+ (map (lambda (x y) (cons x y)) '(0 1) '(a)))
+
+(pass-if "for-each 1,2"
+ (for-each (lambda (x y) (cons x y)) '(0) '(a b)))
+
+(pass-if "for-each 2,1"
+ (for-each (lambda (x y) (cons x y)) '(0 1) '(a)))
+
(pass-if-equal "fold"
'(3 2 1)
(fold cons '() '(1 2 3)))