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

Deal with empty lines

This commit is contained in:
mainzelm 2006-04-05 15:55:52 +00:00
parent f1111f3dfa
commit 9c494558af
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/scheme-commands.scm
View File

@ -6,8 +6,10 @@
(cdr tokens)))) (cdr tokens))))
(define (scheme-command-line? command-line) (define (scheme-command-line? command-line)
(char=? (string-ref (string-trim command-line) 0) (let ((trimmed (string-trim command-line)))
command-prefix)) (and (> (string-length trimmed) 0)
(char=? (string-ref trimmed 0)
command-prefix))))
(define (eval-scheme-command command args) (define (eval-scheme-command command args)
(case (string->symbol command) (case (string->symbol command)