Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

call/cc integration

Browse source
This commit is contained in:
Justin Ethier 2015-03-22 08:58:43 -04:00
parent 582524af81
commit 89526d79e8
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
icyc.scm
View file

@ -12,11 +12,16 @@
;; TODO: define repl iteration, and wrap in an exception handler
(define (repl:next-line)
(with-exception-handler
(lambda (obj)
(write (list 'an-error-occurred obj)))
(lambda ()
(repl))))
; (call/cc
; (lambda (continue)
(with-exception-handler
(lambda (obj)
(write (list 'an-error-occurred obj))
); (continue #t))
(lambda ()
(repl)))) ;)
; (repl:next-line))
;#f)
(define (repl)
(display "cyclone> ")