Small cleanup, and bugfix for command line parsing during bootstrap
parent
09c5d95f32
commit
600974f6d8
|
@ -15,6 +15,8 @@ sequences sequences-internals words ;
|
||||||
] when
|
] when
|
||||||
] when
|
] when
|
||||||
|
|
||||||
|
parse-command-line
|
||||||
|
|
||||||
"Compiling base..." print flush
|
"Compiling base..." print flush
|
||||||
|
|
||||||
{
|
{
|
||||||
|
|
|
@ -206,16 +206,6 @@ SYMBOL: current-node
|
||||||
[ 2drop ] if
|
[ 2drop ] if
|
||||||
] each-node-with ;
|
] each-node-with ;
|
||||||
|
|
||||||
: (clone-node) ( node -- node )
|
|
||||||
clone dup node-shuffle clone over set-node-shuffle ;
|
|
||||||
|
|
||||||
: clone-node ( node -- node )
|
|
||||||
dup [
|
|
||||||
(clone-node)
|
|
||||||
dup node-children [ clone-node ] map over set-node-children
|
|
||||||
dup node-successor clone-node over set-node-successor
|
|
||||||
] when ;
|
|
||||||
|
|
||||||
GENERIC: calls-label* ( label node -- ? )
|
GENERIC: calls-label* ( label node -- ? )
|
||||||
|
|
||||||
M: node calls-label* 2drop f ;
|
M: node calls-label* 2drop f ;
|
||||||
|
@ -237,7 +227,7 @@ SYMBOL: node-stack
|
||||||
DEFER: iterate-nodes
|
DEFER: iterate-nodes
|
||||||
|
|
||||||
: iterate-children ( quot -- )
|
: iterate-children ( quot -- )
|
||||||
node@ node-children [ swap iterate-nodes ] each ;
|
node@ node-children [ swap iterate-nodes ] each ; inline
|
||||||
|
|
||||||
: iterate-next ( -- node ) node@ node-successor ;
|
: iterate-next ( -- node ) node@ node-successor ;
|
||||||
|
|
||||||
|
@ -250,6 +240,4 @@ DEFER: iterate-nodes
|
||||||
] if ; inline
|
] if ; inline
|
||||||
|
|
||||||
: with-node-iterator ( quot -- )
|
: with-node-iterator ( quot -- )
|
||||||
[
|
[ V{ } clone node-stack set call ] with-scope ; inline
|
||||||
V{ } clone node-stack set call
|
|
||||||
] with-scope ; inline
|
|
||||||
|
|
Loading…
Reference in New Issue