steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/compiler/inference/shuffle.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2006 Slava Pestov. ! Copyright (C) 2005, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: inference IN: inference
USING: hashtables kernel math namespaces sequences ; USING: hashtables kernel math namespaces sequences words ;
SYMBOL: recursive-state SYMBOL: recursive-state

2
library/compiler/inference/stack.factor
View File

@ -1,6 +1,6 @@
IN: inference IN: inference
USING: arrays generic kernel math namespaces USING: arrays generic kernel math namespaces
sequences words parser ; sequences words parser words ;
: infer-shuffle-inputs ( shuffle node -- ) : infer-shuffle-inputs ( shuffle node -- )
>r effect-in length 0 r> node-inputs ; >r effect-in length 0 r> node-inputs ;

4
library/ui/tools/dataflow.factor
View File

@ -104,7 +104,7 @@ M: #push node>gadget
: default-node-content ( node -- gadget ) : default-node-content ( node -- gadget )
dup node-children <child-nodes> 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 ; { 5 5 } over set-pack-gap ;
M: object node>gadget M: object node>gadget
@ -119,6 +119,8 @@ M: full-height-node node>gadget
! stack heights ! stack heights
SYMBOL: d-height SYMBOL: d-height
DEFER: (compute-heights)
: compute-child-heights ( node -- ) : compute-child-heights ( node -- )
node-children dup empty? [ node-children dup empty? [
drop drop