Fix bootstrap problem

darcs
slava 2006-09-16 01:02:48 +00:00
parent 70c1037e0e
commit b6d438196f
3 changed files with 5 additions and 3 deletions

View File

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

View File

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

View File

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