steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/shell/shell.factor
View File

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