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

math: fix quot stack effect in unless-zero.

db4
John Benediktsson 2014-01-07 08:25:18 -08:00
parent fef1b2fb00
commit 63514bbbf8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/math/math.factor
View File

@ -87,7 +87,7 @@ GENERIC: neg? ( x -- -x )
: when-zero ( ..a n quot: ( ..a -- ..b ) -- ..b ) [ ] if-zero ; inline
: unless-zero ( ..a n quot: ( ..a -- ..b ) -- ..b ) [ ] swap if-zero ; inline
: unless-zero ( ..a n quot: ( ..a n -- ..b ) -- ..b ) [ ] swap if-zero ; inline
UNION: integer fixnum bignum ;