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

fix bad paren in spencer.scm

This commit is contained in:
bdc 1999-09-30 18:33:35 +00:00
parent 3c71783b76
commit 7246ebf7b8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/rx/spencer.scm
View File

@ -157,7 +157,7 @@
;;; I is the index of the char following the left brace. ;;; I is the index of the char following the left brace.
(define (parse-posix-braces s i) (define (parse-posix-braces s i)
(let ((comma (string-index s #\,) i) (let ((comma (string-index s #\, i))
(rb (string-index s #\} i))) (rb (string-index s #\} i)))
(if rb (if rb
(if (and comma (< comma rb)) (if (and comma (< comma rb))