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

clear away some rebar

db4
Joe Groff 2010-03-07 18:11:44 -08:00
parent 83c81b288f
commit 011a39457e
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/stack-checker/known-words/known-words.factor
View File

@ -99,21 +99,6 @@ M: composed infer-call*
1 infer->r infer-call 1 infer->r infer-call
terminated? get [ 1 infer-r> infer-call ] unless ; terminated? get [ 1 infer-r> infer-call ] unless ;
! : Pdeclared-effect ( x -- x )
! "-->" P.
! dup
! [ word>> P. ]
! [ effect>> P. ]
! [ value>> known known>callable P. ] tri
! current-effect P. ;
!
! M: declared-effect infer-call*
! [ Pdeclared-effect
! nip value>> (infer-call) ]
! [ "<--" P.
! word>> P.
! current-effect P. ] bi ;
M: declared-effect infer-call* M: declared-effect infer-call*
[ [ known>> infer-call* ] keep ] with-effect-here check-declared-effect ; [ [ known>> infer-call* ] keep ] with-effect-here check-declared-effect ;