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

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

@ -212,12 +212,11 @@
; (cdrs (cdr unz))) ; (cdrs (cdr unz)))
; (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)))))
(define (list-tail x k) (define (list-tail x k)
(if (zero? k) (if (zero? k)