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 | |
| 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>
| -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 |