From fe6bf754bbe988a95e93b418f5a15f0c4244a493 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 28 May 2013 04:51:55 +0000
Subject: Add DB parameter to compNoStacking

---
 src/interp/nruncomp.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/nruncomp.boot')

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index c6c17ce0..d73344de 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -201,7 +201,7 @@ genDeltaEntry(op,mm,e) ==
   kind is 'XLAM => cform
   if kind is 'Subsumed then kind := 'ELT
   $onlyAbstractSlot => [kind,'$,[op,[dc,:sig]]]
-  db := constructorDB currentConstructor e
+  db := currentDB e
   if dc isnt [.,:.] then
     dc = "$" => nsig := sig
     if integer? nsig then nsig := MSUBST("$",dc,substitute("$$","$",sig))
-- 
cgit v1.2.3