globs: minor change
parent
b5c93803c1
commit
8970a65823
|
@ -35,4 +35,4 @@ PRIVATE>
|
||||||
: <glob> 'glob' just parse-1 just ;
|
: <glob> 'glob' just parse-1 just ;
|
||||||
|
|
||||||
: glob-matches? ( input glob -- ? )
|
: glob-matches? ( input glob -- ? )
|
||||||
>r >lower r> <glob> parse nil? not ;
|
[ >lower ] [ <glob> ] bi* parse nil? not ;
|
||||||
|
|
Loading…
Reference in New Issue