diff --git a/basis/stack-checker/row-polymorphism/row-polymorphism.factor b/basis/stack-checker/row-polymorphism/row-polymorphism.factor index ad4f92ced4..f7419b116d 100644 --- 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" ] bi@ terminated? get ; inline : with-effect-here ( quot -- effect )