parent
							
								
									db732404dd
								
							
						
					
					
						commit
						cb5de42a9b
					
				| 
						 | 
				
			
			@ -291,7 +291,7 @@
 | 
			
		|||
      (loop (wait-for-input) #f))
 | 
			
		||||
 | 
			
		||||
     ;; F7 toggle scheme-mode / command-mode (FIXME: find a better key)
 | 
			
		||||
     ((= ch key-f7)
 | 
			
		||||
     ((= ch key-home)
 | 
			
		||||
      (toggle-command/scheme-mode)
 | 
			
		||||
      (loop (wait-for-input) #f))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -604,8 +604,8 @@
 | 
			
		|||
  (let ((env (init-evaluation-environment 'nuit-eval)))
 | 
			
		||||
    (lambda (exp)
 | 
			
		||||
      (with-fatal-and-capturing-error-handler
 | 
			
		||||
       (lambda (condition continuation decline)
 | 
			
		||||
         continuation)
 | 
			
		||||
       (lambda (condition raw-continuation continuation decline)
 | 
			
		||||
         raw-continuation)
 | 
			
		||||
       (lambda ()
 | 
			
		||||
         (eval (read-sexp-from-string exp) env))))))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue