shell: using glob-directory.

locals-and-roots
John Benediktsson 2016-03-27 18:52:45 -07:00
parent 1441d66553
commit 8fdfc7f973
1 changed files with 3 additions and 6 deletions

View File

@ -1,5 +1,5 @@
USING: accessors continuations debugger environment eval io
io.directories io.encodings.utf8 io.launcher io.pathnames
USING: accessors continuations debugger environment eval globs
io io.directories io.encodings.utf8 io.launcher io.pathnames
io.pipes kernel namespaces sequences sequences.deep shell.parser
splitting words ;
IN: shell
@ -22,10 +22,7 @@ M: double-quoted-expr expand expr>> ;
M: variable-expr expand expr>> os-env ;
M: glob-expr expand
expr>> dup "*" = [
drop current-directory get directory-files
] when ;
M: glob-expr expand expr>> glob-directory ;
M: factor-expr expand expr>> eval>string ;