suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed another typo in the code, added tests

Browse Source 
svn: r4936

original commit: a0243b4616e707de1d78332853cbddb0f4b47858
This commit is contained in:
Eli Barzilay 2006-11-23 17:49:24 +00:00
parent b5e99cbd94
commit 4a8e6be9ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/string.ss
View File

@ -447,7 +447,7 @@
(if simple? simple-item:s item:s) (if simple? simple-item:s item:s)
#\* ".*" "."))] #\* ".*" "."))]
[(pfx sfx) (if case-sens? [(pfx sfx) (if case-sens?
(if b? (values #"^" #"^") (if b? (values #"^" #"$")
(values "^" "$")) (values "^" "$"))
(if b? (values #"^(?i:" #")$") (if b? (values #"^(?i:" #")$")
(values "^(?i:" ")$")))] (values "^(?i:" ")$")))]