From ba31f73b41516d4dbf1e017ae9cb885f45b58740 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 4 Dec 2008 10:19:05 -0600 Subject: [PATCH] Fix regression on >r/r> test --- basis/stack-checker/backend/backend.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/stack-checker/backend/backend.factor b/basis/stack-checker/backend/backend.factor index 56777cc8a7..07030085a6 100644 --- a/basis/stack-checker/backend/backend.factor +++ b/basis/stack-checker/backend/backend.factor @@ -116,10 +116,10 @@ M: object apply-object push-literal ; ] if ; : infer->r ( n -- ) - consume-d dup copy-values [ #>r, ] [ nip output-r ] 2bi ; + consume-d dup copy-values [ nip output-r ] [ #>r, ] 2bi ; : infer-r> ( n -- ) - consume-r dup copy-values [ #r>, ] [ nip output-d ] 2bi ; + consume-r dup copy-values [ nip output-d ] [ #r>, ] 2bi ; : undo-infer ( -- ) recorded get [ f "inferred-effect" set-word-prop ] each ;