Fix bootstrap problem
parent
70c1037e0e
commit
b6d438196f
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2005, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: inference
|
||||
USING: hashtables kernel math namespaces sequences ;
|
||||
USING: hashtables kernel math namespaces sequences words ;
|
||||
|
||||
SYMBOL: recursive-state
|
||||
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
IN: inference
|
||||
USING: arrays generic kernel math namespaces
|
||||
sequences words parser ;
|
||||
sequences words parser words ;
|
||||
|
||||
: infer-shuffle-inputs ( shuffle node -- )
|
||||
>r effect-in length 0 r> node-inputs ;
|
||||
|
|
|
@ -104,7 +104,7 @@ M: #push node>gadget
|
|||
|
||||
: default-node-content ( node -- gadget )
|
||||
dup node-children <child-nodes>
|
||||
swap class word-name <mono-label> add* make-pile
|
||||
swap class word-name <label> add* make-pile
|
||||
{ 5 5 } over set-pack-gap ;
|
||||
|
||||
M: object node>gadget
|
||||
|
@ -119,6 +119,8 @@ M: full-height-node node>gadget
|
|||
! stack heights
|
||||
SYMBOL: d-height
|
||||
|
||||
DEFER: (compute-heights)
|
||||
|
||||
: compute-child-heights ( node -- )
|
||||
node-children dup empty? [
|
||||
drop
|
||||
|
|
Loading…
Reference in New Issue