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

View File

@ -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))))))