From b3d105ad50f84cc35f979742606313f8d8a8622c Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 10 Jul 2016 15:19:20 +0200
Subject: [PATCH] add begin.

---
 scm.mes  | 3 +++
 test.mes | 6 ++++++
 2 files changed, 9 insertions(+)

diff --git a/scm.mes b/scm.mes
index 6a38ce36..cff5fba6 100755
--- 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))
diff --git a/test.mes b/test.mes
index e231e268..11b0c38c 100644
--- a/test.mes
+++ b/test.mes
@@ -155,4 +155,10 @@
    (factorial 4)))
 (newline)
 
+(define a 2)
+(begin
+  (display 'a+3=)
+  (display (+ a 3)))
+(newline)
+
 '()