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

.

Browse Source 
original commit: 0ef7599743daf5cf73e62872c5c920125fd87550
This commit is contained in:
Matthew Flatt 1998-09-24 18:33:31 +00:00
parent bff131cd99
commit 310c47ff05
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -3142,7 +3142,7 @@
[on-close (lambda () [on-close (lambda ()
(custodian-shutdown-all user-custodian) (custodian-shutdown-all user-custodian)
(semaphore-post waiting))] (semaphore-post waiting))]
[on-drop-file (lambda (f) (evaluate `(load ,f)))]) [on-drop-file (lambda (f) (evaluate (format "(load ~s)" f)))])
(sequence (apply super-init args) (accept-drop-files #t))) (sequence (apply super-init args) (accept-drop-files #t)))
"MrEd REPL" #f 500 400)) "MrEd REPL" #f 500 400))
(define repl-buffer (make-object esq:text%)) (define repl-buffer (make-object esq:text%))