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

allow break during output printing

Browse Source 
svn: r1595
This commit is contained in:
Matthew Flatt 2005-12-12 18:37:36 +00:00
parent c973b8609e
commit 4436cec431
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drscheme/private/rep.ss
View File

@ -967,13 +967,13 @@ TODO
(let loop ()
(let ([sexp/syntax/eof (get-sexp/syntax/eof)])
(unless (eof-object? sexp/syntax/eof)
(call-with-values
(call-with-break-parameterization
(get-user-break-parameterization)
(λ ()
(call-with-break-parameterization
(get-user-break-parameterization)
(call-with-values
(λ ()
(eval-syntax sexp/syntax/eof))))
(λ x (display-results x)))
(eval-syntax sexp/syntax/eof))
(λ x (display-results x)))))
(loop))))
(set! cleanup? #t))
(λ ()