Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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

9
icyc.scm
View file

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