mirror/ede
1
0
Fork 0
mirror of https://github.com/edeproject/ede.git synced 2023-08-10 21:13:03 +03:00
Code Issues Projects Releases Wiki Activity

Alternative implementation

Browse Source
This commit is contained in:
Sanel Zukan 2008-10-17 13:41:56 +00:00
parent a28b95f255
commit a54c25ff78
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tools/capone/lib/capone.init
View File

@ -213,8 +213,7 @@
; (apply proc cars) (apply map (cons proc cdrs)))))) ; (apply proc cars) (apply map (cons proc cdrs))))))
(define (for-each proc lst) (define (for-each proc lst)
(if (null? lst) (if (not (null? lst))
lst
(begin (begin
(proc (car lst)) (proc (car lst))
(for-each proc (cdr lst))))) (for-each proc (cdr lst)))))