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)))
; (apply proc cars) (apply map (cons proc cdrs))))))
(define (for-each proc lst)
(if (null? lst)
lst
(begin
(proc (car lst))
(for-each proc (cdr lst)))))
(define (for-each proc lst)
(if (not (null? lst))
(begin
(proc (car lst))
(for-each proc (cdr lst)))))
(define (list-tail x k)
(if (zero? k)