Temporary testing

This commit is contained in:
Justin Ethier 2015-02-27 22:44:06 -05:00
parent 7c647e0eb1
commit 14855cef41

10
test.scm Normal file
View file

@ -0,0 +1,10 @@
;; Temporary testing, delete this once it works
(define (call fn a)
(fn a))
(call write 'hello)
;; Demonstrate sending an interpreted function to compiled code
;; I think in order for this to work, the compiled code would have to
;; detect an interpreted proc, and use eval to execute it
(eval '(call (lambda (x) x)))