From 145f1dbeef428d1a452fcf094f2b4a9b521600b1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 23 May 2009 15:47:08 -0500
Subject: [PATCH] compiler.cfg.stack-analysis: change how inc-d/inc-r work

---
 basis/compiler/cfg/stack-analysis/stack-analysis.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/stack-analysis/stack-analysis.factor b/basis/compiler/cfg/stack-analysis/stack-analysis.factor
index cbe46d7dd4..d43d97a8e0 100644
--- a/basis/compiler/cfg/stack-analysis/stack-analysis.factor
+++ b/basis/compiler/cfg/stack-analysis/stack-analysis.factor
@@ -101,11 +101,11 @@ M: neutral-insn visit , ;
 
 : adjust-d ( n -- ) state get [ + ] change-d-height drop ;
 
-M: ##inc-d visit n>> adjust-d ;
+M: ##inc-d visit [ , ] [ n>> adjust-d ] bi ;
 
 : adjust-r ( n -- ) state get [ + ] change-r-height drop ;
 
-M: ##inc-r visit n>> adjust-r ;
+M: ##inc-r visit [ , ] [ n>> adjust-r ] bi ;
 
 : eliminate-peek ( dst src -- )
     ! the requested stack location is already in 'src'