This commit is contained in:
Justin Ethier 2016-02-05 22:53:45 -05:00
parent 6e870cd6d3
commit f47b3be216

View file

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