add begin.

2016-07-10 15:19:20 +02:00 · 2016-07-10 15:19:20 +02:00 · b3d105ad50
parent 1584bb8701
commit b3d105ad50
2 changed files with 9 additions and 0 deletions
--- a/scm.mes
+++ b/scm.mes
@ -92,3 +92,6 @@
  (cons 'let (cons (unspecified-bindings bindings '())
                    (append (letrec-setters bindings '())
                            body)))  )
+
+(define (begin . rest)
+  (let () rest))
--- a/test.mes
+++ b/test.mes
@ -155,4 +155,10 @@
   (factorial 4)))
 (newline)

+(define a 2)
+(begin
+  (display 'a+3=)
+  (display (+ a 3)))
+(newline)
+
 '()