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

Issue #519 - Allow truncate-quotient to return fixnums

Browse source 
Return a fixnum when fixnum args are received, per R7RS.
This commit is contained in:
Justin Ethier 2024-01-06 14:37:36 -08:00
parent 1a0f42386b
commit 43923a6e44
1 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
scheme/base.sld
View file

@ -1525,21 +1525,17 @@
"(void *data, int argc, closure _, object k, object n)"
" Cyc_get_ratio(data, k, n, 0);")
;; TODO: integrate into quotient?
(define-c fixnum?
"(void *data, int argc, closure _, object k, object obj)"
" return_closcall1(data, k,
obj_is_int(obj) ? boolean_t : boolean_f); ")
(define-c fixnum?
"(void *data, int argc, closure _, object k, object obj)"
" return_closcall1(data, k,
obj_is_int(obj) ? boolean_t : boolean_f); "
"(void *data, object ptr, object obj)"
" return obj_is_int(obj) ? boolean_t : boolean_f; ")
(define (quotient x y)
;; TODO: if x and y are fixnums, do fast divide and return a fixnum
;; TODO: above good enough or are there special cases??
(truncate (/ x y)))
;; TODO: something like this, but do we want inline?
;;(let ((result (/ x y)))
;; (if (and (fixnum? x) (fixnum? y))
;; (exact (truncate result))
;; (truncate result))))
(if (and (fixnum? x) (fixnum? y))
(exact (truncate (/ x y)))
(truncate (/ x y))))
(define truncate-quotient quotient)
(define truncate-remainder remainder)