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

Add warning text if the repl dies

Browse Source 
svn: r10511
This commit is contained in:
Eli Barzilay 2008-06-29 23:42:09 +00:00
parent 9a900b37aa
commit be1097cb20
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -958,7 +958,8 @@ TODO
(when (equal? ans 3) (when (equal? ans 3)
(set-custodian-limit new-limit) (set-custodian-limit new-limit)
(preferences:set 'drscheme:limit-memory new-limit)) (preferences:set 'drscheme:limit-memory new-limit))
(void))) (set-insertion-point (last-position))
(insert-warning "\n[Interactions disabled]")))
(define/private (cleanup-interaction) ; =Kernel=, =Handler= (define/private (cleanup-interaction) ; =Kernel=, =Handler=
(set! need-interaction-cleanup? #f) (set! need-interaction-cleanup? #f)