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

compiler.tree.propagation: Fix build error

db4
Doug Coleman 2015-08-13 02:53:03 -07:00
parent 79cca8e59d
commit 225c28f23a
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/propagation/call-effect/call-effect-tests.factor
View File

@ -43,7 +43,7 @@ IN: compiler.tree.propagation.call-effect.tests
2dip 2dip
rot rot
[ 2drop ] [ 2drop ]
[ wrong-values ] [ throw-wrong-values ]
if if
] ]
( obj -- a b c ) ( obj -- a b c )

8
basis/compiler/tree/propagation/call-effect/call-effect.factor
View File

@ -146,14 +146,14 @@ ERROR: uninferable ;
: (infer-value) ( value-info -- effect ) : (infer-value) ( value-info -- effect )
dup literal?>> [ dup literal?>> [
literal>> literal>>
[ callable? [ uninferable ] unless ] [ callable? [ throw-uninferable ] unless ]
[ already-inlined-quot? [ uninferable ] when ] [ already-inlined-quot? [ throw-uninferable ] when ]
[ safe-infer dup +unknown+ = [ uninferable ] when ] tri [ safe-infer dup +unknown+ = [ throw-uninferable ] when ] tri
] [ ] [
dup class>> { dup class>> {
{ \ curry [ slots>> third (infer-value) remove-effect-input ] } { \ curry [ slots>> third (infer-value) remove-effect-input ] }
{ \ compose [ slots>> last2 [ (infer-value) ] bi@ compose-effects ] } { \ compose [ slots>> last2 [ (infer-value) ] bi@ compose-effects ] }
[ uninferable ] [ throw-uninferable ]
} case } case
] if ; ] if ;

2
basis/compiler/tree/propagation/simple/simple.factor
View File

@ -73,7 +73,7 @@ ERROR: invalid-outputs #call infos ;
: check-outputs ( #call infos -- infos ) : check-outputs ( #call infos -- infos )
over out-d>> over [ length ] bi@ = over out-d>> over [ length ] bi@ =
[ nip ] [ invalid-outputs ] if ; [ nip ] [ throw-invalid-outputs ] if ;
: call-outputs-quot ( #call word -- infos ) : call-outputs-quot ( #call word -- infos )
dupd dupd

2
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -164,7 +164,7 @@ ERROR: bad-partial-eval quot word ;
: check-effect ( quot word -- ) : check-effect ( quot word -- )
2dup [ infer ] [ stack-effect ] bi* effect<= 2dup [ infer ] [ stack-effect ] bi* effect<=
[ 2drop ] [ bad-partial-eval ] if ; [ 2drop ] [ throw-bad-partial-eval ] if ;
:: define-partial-eval ( word quot n -- ) :: define-partial-eval ( word quot n -- )
word [ word [