Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #378 - Return void instaed of null

Browse source
This commit is contained in:
Justin Ethier 2020-05-19 23:12:21 -04:00
parent 6e607f4788
commit ac330dfffc
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -875,12 +875,12 @@
(cons (f (car lst1) (car lst2)) (Cyc-map-loop-2 f (cdr lst1) (cdr lst2))))) (cons (f (car lst1) (car lst2)) (Cyc-map-loop-2 f (cdr lst1) (cdr lst2)))))
(define (Cyc-for-each-loop-1 f lst) (define (Cyc-for-each-loop-1 f lst)
(if (null? lst) (if (null? lst)
'() (void)
(begin (f (car lst)) (begin (f (car lst))
(Cyc-for-each-loop-1 f (cdr lst))))) (Cyc-for-each-loop-1 f (cdr lst)))))
(define (Cyc-for-each-loop-2 f lst1 lst2) (define (Cyc-for-each-loop-2 f lst1 lst2)
(if (or (null? lst1) (null? lst2)) (if (or (null? lst1) (null? lst2))
'() (void)
(begin (f (car lst1) (car lst2)) (begin (f (car lst1) (car lst2))
(Cyc-for-each-loop-2 f (cdr lst1) (cdr lst2))))) (Cyc-for-each-loop-2 f (cdr lst1) (cdr lst2)))))