From 09a63498f4de78d0c6e484d406544d8e7653b8ca Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Thu, 4 Aug 2022 21:51:19 -0700
Subject: Add begin.

---
 lib/scheme/base/20-let.csc | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'lib/scheme')

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 ...))))))
-- 
cgit v1.3.1