Replaced Scheme 48 with Scsh in user dialog.
This commit is contained in:
parent
4643aa5362
commit
eb89a60d2c
|
@ -90,7 +90,7 @@
|
|||
; perhaps this should use scheme-exit-now, but I'm
|
||||
; worried that it is what handles normal EOF. (HCC)
|
||||
(exit-command-processor (lambda () 0)))
|
||||
((y-or-n? "Exit Scheme 48" #t)
|
||||
((y-or-n? "Exit Scsh?" #t)
|
||||
(exit-command-processor (lambda () 1)))
|
||||
(else
|
||||
(abort-to-command-level (car levels))))
|
||||
|
|
Loading…
Reference in New Issue