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

another typo

cvs
Slava Pestov 2006-01-22 23:07:05 +00:00
parent a5daac3708
commit 7b8c731c82
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/inference/class-infer.factor
View File

@ -102,7 +102,7 @@ M: node child-ties ( node -- seq )
] if ; ] if ;
\ make-tuple [ \ make-tuple [
dup node-in-d first value-literal* 1array dup node-in-d first value-literal 1array
] "output-classes" set-word-prop ] "output-classes" set-word-prop
: output-classes ( node -- seq ) : output-classes ( node -- seq )
@ -122,7 +122,7 @@ M: #call infer-classes* ( node -- )
M: #shuffle infer-classes* ( node -- ) M: #shuffle infer-classes* ( node -- )
node-out-d [ value? ] subset node-out-d [ value? ] subset
[ [ value-literal* ] keep set-value-literal* ] each ; [ [ value-literal ] keep set-value-literal* ] each ;
M: #if child-ties ( node -- seq ) M: #if child-ties ( node -- seq )
node-in-d first dup general-t <class-tie> node-in-d first dup general-t <class-tie>