From 92d5d80cc1fba6b558cf7f2a3e4673b26ad428ca Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 6 Jan 2024 09:25:26 -0800
Subject: [PATCH] Added TODO

---
 scheme/base.sld | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index 94ba0e2a..b4539130 100644
--- 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)