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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2024-01-06 09:25:26 -08:00
parent 8875c534dc
commit 92d5d80cc1
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/base.sld
View file

@ -1535,6 +1535,11 @@
;; 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))))
(define truncate-quotient quotient)
(define truncate-remainder remainder)