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

Enable more local DCE

db4
Slava Pestov 2008-12-06 14:24:31 -06:00
parent 145b635eb6
commit 9c2e8abaca
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,21 +99,18 @@ M: object infer-call*
3 infer->r infer-call 3 infer-r> ; 3 infer->r infer-call 3 infer-r> ;
: infer-dip ( -- ) : infer-dip ( -- )
commit-literals
literals get literals get
[ \ dip def>> infer-quot-here ] [ \ dip def>> infer-quot-here ]
[ pop 1 infer->r infer-quot-here 1 infer-r> ] [ pop 1 infer->r infer-quot-here 1 infer-r> ]
if-empty ; if-empty ;
: infer-2dip ( -- ) : infer-2dip ( -- )
commit-literals
literals get literals get
[ \ 2dip def>> infer-quot-here ] [ \ 2dip def>> infer-quot-here ]
[ pop 2 infer->r infer-quot-here 2 infer-r> ] [ pop 2 infer->r infer-quot-here 2 infer-r> ]
if-empty ; if-empty ;
: infer-3dip ( -- ) : infer-3dip ( -- )
commit-literals
literals get literals get
[ \ 3dip def>> infer-quot-here ] [ \ 3dip def>> infer-quot-here ]
[ pop 3 infer->r infer-quot-here 3 infer-r> ] [ pop 3 infer->r infer-quot-here 3 infer-r> ]