artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Bugfix: for-each with two lists.

Browse source 
* module/mes/scm.mes (for-each): Fix for two lists.  Always return *unspecified*.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-20 12:23:10 +01:00
parent 4df7673a33
commit eb92e77719
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/mes/scm.mes
View file

@ -132,10 +132,8 @@
(member x (cdr lst))))) (member x (cdr lst)))))
(define (for-each f l . r) (define (for-each f l . r)
(if (null? l) '() ;; IF (if (pair? l) (if (null? r) (begin (f (car l)) (for-each f (cdr l)))
(if (null? r) (begin (f (car l)) (for-each f (cdr l))) (if (null? (cdr r)) (begin (f (car l) (caar r)) (for-each f (cdr l) (cdar r)))))))
(if (null? (cdr r))
(for-each f (cdr l) (cdar r))))))
(define (<= . rest) (define (<= . rest)
(or (apply < rest) (or (apply < rest)