From 1d1cd8d61fb51ea06699686832ca9323d22d1188 Mon Sep 17 00:00:00 2001 From: Arthur Maciel Date: Fri, 22 Jan 2021 22:25:29 -0300 Subject: [PATCH] Unless/when don't have alternate clause --- scheme/base.sld | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 62b0be5c..018dee6b 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -483,15 +483,13 @@ (if (null? (cdr exp)) (error/loc "empty when" exp)) (if (null? (cddr exp)) (error/loc "no when body" exp)) `(if ,(cadr exp) - ((lambda () ,@(cddr exp))) - #f)))) + ((lambda () ,@(cddr exp))))))) (define-syntax unless (er-macro-transformer (lambda (exp rename compare) (if (null? (cdr exp)) (error/loc "empty unless" exp)) (if (null? (cddr exp)) (error/loc "no unless body" exp)) - `(if ,(cadr exp) - #f + `(if (not ,(cadr exp)) ((lambda () ,@(cddr exp))))))) (define-syntax do (er-macro-transformer