Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bignum support for (exact?)

Browse source
This commit is contained in:
Justin Ethier 2017-02-11 18:00:56 -05:00
parent 371b4630eb
commit 0325383f0e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/base.sld
View file

@ -1098,7 +1098,8 @@
(define-c exact? (define-c exact?
"(void *data, int argc, closure _, object k, object num)" "(void *data, int argc, closure _, object k, object num)"
" Cyc_check_num(data, num); " Cyc_check_num(data, num);
if (obj_is_int(num) || type_of(num) == integer_tag) if (obj_is_int(num) || type_of(num) == integer_tag
|| type_of(num) == bignum_tag)
return_closcall1(data, k, boolean_t); return_closcall1(data, k, boolean_t);
return_closcall1(data, k, boolean_f); ") return_closcall1(data, k, boolean_f); ")
(define (inexact? num) (not (exact? num))) (define (inexact? num) (not (exact? num)))