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

stack-checker.row-polymorphism: minor cleanup

db4
Slava Pestov 2010-06-22 22:29:24 -04:00
parent 2173c0cafd
commit 1014b62ee7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,8 +16,8 @@ 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 - +
terminated? get [ 0 ] [ meta-d length inner-d - ] if
[ "x" <array> ] bi@ terminated? get <terminated-effect> ; inline
terminated? get [ [ 0 ] [ meta-d length inner-d - ] if [ "x" <array> ] bi@ ] keep
<terminated-effect> ; inline
: with-effect-here ( quot -- effect )
meta-d length input-count get