fix prompt for MrEd load handler

svn: r5177 original commit: 91d68735fa7a02356c08d1181bca941213f95bca
2006-12-24 02:14:19 +00:00 · 2006-12-24 02:14:19 +00:00 · 23fad5e470
commit 23fad5e470
parent c89d244c7c
1 changed files with 7 additions and 1 deletions
--- a/collects/mred/private/snipfile.ss
+++ b/collects/mred/private/snipfile.ss
@ -213,7 +213,13 @@
                                                                    (datum->syntax-object
                                                                     #f
                                                                     (cons '#%top-interaction exp)
-                                                                     exp)))))
+                                                                     exp)))
+                                                        (default-continuation-prompt-tag)
+                                                        (lambda args
+                                                          (apply
+                                                           abort-current-continuation
+                                                           (default-continuation-prompt-tag)
+                                                           args))))
 			    (lambda x (loop x)))))))))
 	  (lambda ()
 	    (close-input-port in-port)))))