Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 00:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

using appropriate max bound on equal? for all platforms

Browse source
This commit is contained in:
Alex Shinn 2011-04-04 12:26:30 +00:00
parent 70a5e46727
commit ac0d0bb300
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -714,7 +714,7 @@ sexp sexp_equalp_bound (sexp ctx sexp_api_params(self, n), sexp a, sexp b, sexp
sexp sexp_equalp_op (sexp ctx sexp_api_params(self, n), sexp a, sexp b) {
return sexp_make_boolean(
sexp_truep(sexp_equalp_bound(ctx sexp_api_pass(self, n), a, b,
sexp_make_fixnum(1000000000))));
sexp_make_fixnum(SEXP_MAX_FIXNUM))));
}
/********************* strings, symbols, vectors **********************/