From 12590f6c1b583471000137b2176335a701238413 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 31 Jul 2008 23:01:20 -0500 Subject: [PATCH] Remove unneeded copy --- unfinished/stack-checker/inlining/inlining.factor | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/unfinished/stack-checker/inlining/inlining.factor b/unfinished/stack-checker/inlining/inlining.factor index 068dbaba02..ffa90c13ed 100644 --- a/unfinished/stack-checker/inlining/inlining.factor +++ b/unfinished/stack-checker/inlining/inlining.factor @@ -106,17 +106,12 @@ SYMBOL: enter-out '[ , prepend ] bi@ ; -: insert-copy ( effect -- ) - in>> [ consume-d dup ] keep make-copies - [ nip output-d ] [ #copy, ] 2bi ; - : call-recursive-inline-word ( word -- ) dup "recursive" word-prop [ [ required-stack-effect adjust-stack-effect ] [ ] [ recursive-label ] tri - [ 2drop insert-copy ] [ add-call drop ] [ nip '[ , #call-recursive, ] consume/produce ] - 3tri + 3bi ] [ undeclared-recursion-error inference-error ] if ; : inline-word ( word -- )