Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Inline (exact?) and (exact-integer?)

Browse source
This commit is contained in:
Justin Ethier 2017-05-04 08:40:59 +00:00
parent 93f87ac4c3
commit 1391186a6f
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/base.sld
View file

@ -208,6 +208,7 @@
;;;; ;;;;
) )
(inline (inline
exact-integer?
square square
quotient quotient
numerator numerator
@ -1155,7 +1156,13 @@
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) || 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); "
"(void *data, object ptr, object num)"
" Cyc_check_num(data, num);
if (obj_is_int(num) || type_of(num) == integer_tag
|| type_of(num) == bignum_tag)
return boolean_t;
return boolean_f;")
(define (inexact? num) (not (exact? num))) (define (inexact? num) (not (exact? num)))
(define complex? number?) (define complex? number?)
(define rational? number?) (define rational? number?)