Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simple example to investigate closure improvements

Browse source
This commit is contained in:
Justin Ethier 2015-03-30 22:19:32 -04:00
parent ccd975345a
commit 8f6d5db797
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test.scm
View file

@ -1,11 +1,15 @@
((lambda (x)
((lambda ()
((lambda (z)
(+ x z)) 2)))) 1)
;;; Temporary testing, delete this once it works ;;; Temporary testing, delete this once it works
; Need to rewrite the code to use this, and preserve the global def ; Need to rewrite the code to use this, and preserve the global def
(define (test) ;(define (test)
(call/cc ; (call/cc
(lambda (return) ; (lambda (return)
(return #t)))) ; (return #t))))
(write (test)) ;(write (test))
;
;; (write ;; (write
;; (with-exception-handler ;; (with-exception-handler
;; (lambda (con) ;; (lambda (con)