suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix scribble eval to not catch break

Browse Source 
svn: r8285
This commit is contained in:
Matthew Flatt 2008-01-10 20:45:22 +00:00
parent a934de478f
commit 73396b7d7b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/eval.ss
View File

@ -133,10 +133,10 @@
[(eval:alts p e)
((do-eval ev) #'e)]
[else
(with-handlers ([exn? (lambda (e)
(list (exn-message e)
(get-output ev)
(get-error-output ev)))])
(with-handlers ([exn:fail? (lambda (e)
(list (exn-message e)
(get-output ev)
(get-error-output ev)))])
(list (let ([v (do-plain-eval ev s #t)])
(make-reader-graph (copy-value v (make-hash-table))))
(get-output ev)