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

Use home key to toggle mode 

Adapt to interaction-0.3
This commit is contained in:
mainzelm 2005-05-27 08:11:41 +00:00
parent db732404dd
commit cb5de42a9b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/nuit-engine.scm
View File

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