diff options
author | Thomas Huth <thuth@linux.vnet.ibm.com> | 2011-11-30 14:55:15 +0100 |
---|---|---|
committer | Thomas Huth <thuth@linux.vnet.ibm.com> | 2011-12-20 17:56:48 +0100 |
commit | f1fbd787c70c3d34aa9cadbcaf891956b84bba47 (patch) | |
tree | de1e874fc5e0a572b5a091bbedd7d00dea200127 /slof/fs/node.fs | |
parent | e79c624cddb09c6051ae3682269058ef02fe386e (diff) | |
download | SLOF-f1fbd787c70c3d34aa9cadbcaf891956b84bba47.zip SLOF-f1fbd787c70c3d34aa9cadbcaf891956b84bba47.tar.gz SLOF-f1fbd787c70c3d34aa9cadbcaf891956b84bba47.tar.bz2 |
Fixed "dev" command to only parse one word
The "dev" command parsed the whole remaining input line. That way it was not
possible to do something like "dev / ls" at the prompt. Now it parses only
the next available word in the input so that the rest of the input line can
be interpreted by the Forth engine instead.
Signed-off-by: Thomas Huth <thuth@linux.vnet.ibm.com>
Diffstat (limited to 'slof/fs/node.fs')
-rw-r--r-- | slof/fs/node.fs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/slof/fs/node.fs b/slof/fs/node.fs index 7e1bed2..2e43d14 100644 --- a/slof/fs/node.fs +++ b/slof/fs/node.fs @@ -477,7 +477,7 @@ VARIABLE interpose-node : find-device ( str len -- ) \ set as active node find-node dup 0= ABORT" No such device path" set-node ; -: dev skipws 0 parse find-device ; +: dev parse-word find-device ; : (lsprop) ( node --) dup cr $indent indent @ type ." node: " node>qname type |