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

Adding TODO's

Browse source
This commit is contained in:
Justin Ethier 2024-01-02 19:00:23 -08:00
parent 5f77e6de3d
commit 14a561a40f
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/base.sld
View file

@ -1525,7 +1525,15 @@
"(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 (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)))
(define truncate-quotient quotient)