Fixing one of the bad bugs, in row-polymorphism

diff --git a/basis/stack-checker/row-polymorphism/row-polymorphism.factor b/basis/stack-checker/row-polymorphism/row-polymorphism.factor
index ad4f92ced42a16a07981dd8edddffceecc3581c9..f7419b116da39c26c639229a5f128cfed2b85170 100644 (file)
--- a/basis/stack-checker/row-polymorphism/row-polymorphism.factor
+++ b/basis/stack-checker/row-polymorphism/row-polymorphism.factor
@@ -16,7 +16,7 @@ IN: stack-checker.row-polymorphism
 
 :: (effect-here) ( inner-d old-meta-d-length old-input-count -- effect )
     old-meta-d-length inner-d - input-count get old-input-count - +
-    meta-d length inner-d -
+    terminated? get [ 0 ] [ meta-d length inner-d - ] if
     [ "x" <array> ] bi@ terminated? get <terminated-effect> ; inline
 
 : with-effect-here ( quot -- effect )