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