From 63514bbbf889c2b7786d5d6eaa649ee192c71976 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 7 Jan 2014 08:25:18 -0800 Subject: [PATCH] math: fix quot stack effect in unless-zero. --- core/math/math.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/math/math.factor b/core/math/math.factor index fa81ce3e2a..4444b6daf0 100644 --- a/core/math/math.factor +++ b/core/math/math.factor @@ -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 ;