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