scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replaced Scheme 48 with Scsh in user dialog.

This commit is contained in:
mainzelm 2001-01-11 15:05:04 +00:00
parent 4643aa5362
commit eb89a60d2c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/env/command.scm vendored
View File

@ -90,7 +90,7 @@
; perhaps this should use scheme-exit-now, but I'm ; perhaps this should use scheme-exit-now, but I'm
; worried that it is what handles normal EOF. (HCC) ; worried that it is what handles normal EOF. (HCC)
(exit-command-processor (lambda () 0))) (exit-command-processor (lambda () 0)))
((y-or-n? "Exit Scheme 48" #t) ((y-or-n? "Exit Scsh?" #t)
(exit-command-processor (lambda () 1))) (exit-command-processor (lambda () 1)))
(else (else
(abort-to-command-level (car levels)))) (abort-to-command-level (car levels))))