diff options
Diffstat (limited to 'lib/scheme')
| -rw-r--r-- | lib/scheme/base/20-let.csc | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/scheme/base/20-let.csc b/lib/scheme/base/20-let.csc index 4a02dfa..2b54d28 100644 --- a/lib/scheme/base/20-let.csc +++ b/lib/scheme/base/20-let.csc @@ -6,6 +6,7 @@ letrec letrec*) (import (only (csc builtins) + builtin-sequence define-syntax lambda)) (begin @@ -74,4 +75,14 @@ body1 body2 ...) (let ((name1 val1)) (let* ((name2 val2) ...) - body1 body2 ...)))))) + body1 body2 ...))))) + + + (define-syntax begin + (syntax-rules () + ((begin) + #f) + ((begin expr) + expr) + ((begin body1 body2 ...) + (builtin-sequence body1 (begin body2 ...)))))) |