diff options
Diffstat (limited to 'src/interp/ht-root.boot')
| -rw-r--r-- | src/interp/ht-root.boot | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/interp/ht-root.boot b/src/interp/ht-root.boot index 2540662d..e7ac3df1 100644 --- a/src/interp/ht-root.boot +++ b/src/interp/ht-root.boot @@ -272,10 +272,12 @@ mkUnixPattern s == starPositions := reverse [i for i in 1..(-1 + maxIndex u) | u.i = $wild] for i in starPositions repeat u := strconc(subString(u,0,i),'".*",subString(u,i + 1)) - if u.0 ~= $wild then u := strconc('"[^a-zA-Z]",u) - else u := subString(u,1) - if u.(k := maxIndex u) ~= $wild then u := strconc(u,'"[^a-zA-Z]") - else u := subString(u,0,k) + if stringChar(u,0) ~= $wild + then u := strconc('"[^a-zA-Z]",u) + else u := subString(u,1) + if stringChar(u,k := maxIndex u) ~= $wild + then u := strconc(u,'"[^a-zA-Z]") + else u := subString(u,0,k) u |