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

Default for command-buffer-mode is command 

part of darcs patch Fri Sep 16 23:02:43 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:44:56 +00:00
parent 8c6de19aaa
commit fa5a08ace7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/nuit-engine.scm
View File

@ -1,3 +1,5 @@
(define initial-command-mode 'command)
(define-syntax when (define-syntax when
(syntax-rules () (syntax-rules ()
((_ ?test ?do-this ...) ((_ ?test ?do-this ...)
@ -15,7 +17,7 @@
val))))) val)))))
;; mode of the command buffer ;; mode of the command buffer
(define *command-buffer-mode* 'scheme) (define *command-buffer-mode* initial-command-mode)
(define (command-buffer-in-scheme-mode?) (define (command-buffer-in-scheme-mode?)
(eq? *command-buffer-mode* 'scheme)) (eq? *command-buffer-mode* 'scheme))