diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-28 04:51:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-28 04:51:55 +0000 |
| commit | fe6bf754bbe988a95e93b418f5a15f0c4244a493 (patch) | |
| tree | 61324deaa8841dca96c5920c3600bd64b70dd4a1 /src/interp/nruncomp.boot | |
| parent | 8266743dc86cbfb39cdad47b3d40f4d3bda9d34b (diff) | |
| download | open-axiom-fe6bf754bbe988a95e93b418f5a15f0c4244a493.tar.gz | |
Add DB parameter to compNoStacking
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |