suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix zero? error message. Accepts any number, not just reals.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-12-16 14:45:31 -05:00
parent cb723092e2
commit 2bf83832b9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/numcomp.c
View File

@ -397,7 +397,7 @@ zero_p (int argc, Scheme_Object *argv[])
int v; int v;
v = scheme_is_zero(argv[0]); v = scheme_is_zero(argv[0]);
if (v < 0) { if (v < 0) {
NEED_REAL(zero?); NEED_NUMBER(zero?);
ESCAPED_BEFORE_HERE; ESCAPED_BEFORE_HERE;
} }
return (v ? scheme_true : scheme_false); return (v ? scheme_true : scheme_false);