From ac330dfffcc158e43accf2c63d8fc6d41bc8bff4 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 19 May 2020 23:12:21 -0400 Subject: [PATCH] Issue #378 - Return void instaed of null --- scheme/base.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 5e4ec10a..f771290d 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -875,12 +875,12 @@ (cons (f (car lst1) (car lst2)) (Cyc-map-loop-2 f (cdr lst1) (cdr lst2))))) (define (Cyc-for-each-loop-1 f lst) (if (null? lst) - '() + (void) (begin (f (car lst)) (Cyc-for-each-loop-1 f (cdr lst))))) (define (Cyc-for-each-loop-2 f lst1 lst2) (if (or (null? lst1) (null? lst2)) - '() + (void) (begin (f (car lst1) (car lst2)) (Cyc-for-each-loop-2 f (cdr lst1) (cdr lst2)))))