Added TODO

justinethier · Jan 6, 2024 · 92d5d80 · 92d5d80
1 parent 8875c53
commit 92d5d80
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/scheme/base.sld b/scheme/base.sld
@@ -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)