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

Added { and } to the characters to be quoted within literal strings.

This commit is contained in:
mainzelm 2002-05-02 11:46:44 +00:00
parent 43cd435bad
commit f5d958ac91
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/posixstr.scm
View File

@ -319,7 +319,7 @@
;;; quote the special chars with backslashes. ;;; quote the special chars with backslashes.
(define translate-string (define translate-string
(let ((specials (string->char-set "[.*?()|\\$^+"))) (let ((specials (string->char-set "{}[.*?()|\\$^+")))
(lambda (s) (lambda (s)
(let ((len (string-length s))) (let ((len (string-length s)))
(if (zero? len) (if (zero? len)