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

fix type in regexp

This commit is contained in:
eknauel 2005-05-28 09:43:10 +00:00
parent 73e5192db0
commit 8bf4363a26
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/std-command.scm
View File

@ -27,7 +27,7 @@
(define (contains-glob-enumerator? arg) (define (contains-glob-enumerator? arg)
(if-match (if-match
(regexp-search (regexp-search
(rx (: (submatch (* any)) ("{[") (* any) (submatch (* any)) ("})"))) (rx (: (submatch (* any)) ("{[") (* any) (submatch (* any)) ("]}")))
arg) arg)
(whole-arg submatch-before submatch-after) (whole-arg submatch-before submatch-after)
(not (or (string-suffix? "\\" submatch-before) (not (or (string-suffix? "\\" submatch-before)