diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm index dbdb3da..a5f9d4f 100644 --- a/scheme/nuit-engine.scm +++ b/scheme/nuit-engine.scm @@ -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))))))