mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-15 00:47:34 +02:00
using appropriate max bound on equal? for all platforms
This commit is contained in:
parent
70a5e46727
commit
ac0d0bb300
1 changed files with 1 additions and 1 deletions
2
sexp.c
2
sexp.c
|
@ -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) {
|
sexp sexp_equalp_op (sexp ctx sexp_api_params(self, n), sexp a, sexp b) {
|
||||||
return sexp_make_boolean(
|
return sexp_make_boolean(
|
||||||
sexp_truep(sexp_equalp_bound(ctx sexp_api_pass(self, n), a, b,
|
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 **********************/
|
/********************* strings, symbols, vectors **********************/
|
||||||
|
|
Loading…
Add table
Reference in a new issue