From f47b3be21676419c9140f9b38bc52c07fd976701 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 5 Feb 2016 22:53:45 -0500 Subject: [PATCH] Cleanup --- begin-tests.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/begin-tests.scm b/begin-tests.scm index 9277f845..e8a6ab56 100644 --- a/begin-tests.scm +++ b/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)) -))