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

Self-contained example

Browse source
This commit is contained in:
Justin Ethier 2015-04-22 18:03:32 -04:00
parent a1592ca61f
commit 84b4373974
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test.scm
View file

@ -1,3 +1,5 @@
(define (eval2 exp . env)
exp)
(define (test) (define (test)
(call/cc (call/cc
@ -21,8 +23,8 @@
(repl)))))))) (repl))))))))
(define (repl) (define (repl)
(display "cyclone> ") (display "cyclone> ")
(let ((c 'done)) ;(read)))) ;; fine with this line ;(let ((c 'done)) ;(read)))) ;; fine with this line
;(let ((c (eval 'done))) ;(read)))) ;; Crashes with this line (let ((c (eval2 'done))) ;(read)))) ;; Crashes with this line
;(let ((c (read))) ;(let ((c (read)))
(cond (cond
((not (eof-object? c)) ((not (eof-object? c))