Cleanup

begin-tests.scm

@@ -1,11 +1,10 @@
-;; A temporary test file
-(import (scheme base ) (scheme write))
+;; An example of using begin to splice in definitions
+(import (scheme base ) 
+        (scheme write))
+
+(begin
+  (define tmp1 1)
+  (define tmp2 2))
+
+(write `(,tmp1 ,tmp2))
 
-;; TODO: begin splicing does not work at top-level
-((lambda ()
-  (begin
-    (define tmp1 1)
-    (define tmp2 2))
-  
-  (write `(,tmp1 ,tmp2))
-))