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

Fixing one of the bad bugs, in row-polymorphism

db4
Daniel Ehrenberg 2010-06-22 17:31:21 -04:00
parent 12b0e16232
commit 83327635f3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,7 +16,7 @@ IN: stack-checker.row-polymorphism
:: (effect-here) ( inner-d old-meta-d-length old-input-count -- effect ) :: (effect-here) ( inner-d old-meta-d-length old-input-count -- effect )
old-meta-d-length inner-d - input-count get old-input-count - + 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 [ "x" <array> ] bi@ terminated? get <terminated-effect> ; inline
: with-effect-here ( quot -- effect ) : with-effect-here ( quot -- effect )