From 9c2e8abaca27d424600dc57f299d2f43adbf9eeb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 6 Dec 2008 14:24:31 -0600 Subject: [PATCH] Enable more local DCE --- basis/stack-checker/known-words/known-words.factor | 3 --- 1 file changed, 3 deletions(-) diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor index 94a434f31b..28634f2d44 100644 --- a/basis/stack-checker/known-words/known-words.factor +++ b/basis/stack-checker/known-words/known-words.factor @@ -99,21 +99,18 @@ M: object infer-call* 3 infer->r infer-call 3 infer-r> ; : infer-dip ( -- ) - commit-literals literals get [ \ dip def>> infer-quot-here ] [ pop 1 infer->r infer-quot-here 1 infer-r> ] if-empty ; : infer-2dip ( -- ) - commit-literals literals get [ \ 2dip def>> infer-quot-here ] [ pop 2 infer->r infer-quot-here 2 infer-r> ] if-empty ; : infer-3dip ( -- ) - commit-literals literals get [ \ 3dip def>> infer-quot-here ] [ pop 3 infer->r infer-quot-here 3 infer-r> ]