suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix scribble eval to not catch break

Browse Source 
svn: r8285

original commit: 73396b7d7bcb2ab623d57912fb9f16db34f400b8
This commit is contained in:
Matthew Flatt 2008-01-10 20:45:22 +00:00
parent 4a3d0e82ba
commit 6c34d346a7
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)