steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix stack error in stack-checker.row-polymorphism

db4
Joe Groff 2010-03-05 14:34:50 -08:00
parent af57d4dfa9
commit c9162c5e31
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/stack-checker/row-polymorphism/row-polymorphism.factor
View File

@ -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*