From c9162c5e312e2039133c73997d92af61697f7a62 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 5 Mar 2010 14:34:50 -0800 Subject: [PATCH] fix stack error in stack-checker.row-polymorphism --- .../stack-checker/row-polymorphism/row-polymorphism.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/stack-checker/row-polymorphism/row-polymorphism.factor b/basis/stack-checker/row-polymorphism/row-polymorphism.factor index 6557a26393..1208d67336 100644 --- a/basis/stack-checker/row-polymorphism/row-polymorphism.factor +++ b/basis/stack-checker/row-polymorphism/row-polymorphism.factor @@ -53,8 +53,10 @@ M: curried >error-quot [ 2drop ] if ; inline :: (check-input) ( declared actual -- ) - actual in>> length declared in-var>> [ check-variable ] keep :> ( in-diff in-var ) - actual out>> length declared out-var>> [ check-variable ] keep :> ( out-diff out-var ) + actual declared [ in>> length ] bi@ declared in-var>> + [ check-variable ] keep :> ( in-diff in-var ) + actual declared [ out>> length ] bi@ declared out-var>> + [ check-variable ] keep :> ( out-diff out-var ) { [ in-var not ] [ out-var not ] [ in-diff out-diff = ] } 0|| [ in-var [ in-diff swap adjust-variable ] when*