globs: minor change

2008-05-18 13:46:34 -05:00 · 2008-05-18 13:46:34 -05:00 · 8970a65823
parent b5c93803c1
commit 8970a65823
1 changed files with 1 additions and 1 deletions
--- a/extra/globs/globs.factor
+++ b/extra/globs/globs.factor
@ -35,4 +35,4 @@ PRIVATE>
 : <glob> 'glob' just parse-1 just ;

 : glob-matches? ( input glob -- ? )
-    >r >lower r> <glob> parse nil? not ;
+    [ >lower ] [ <glob> ] bi* parse nil? not ;