From 14a561a40f5e389a1340021ce04c454b982899c8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 2 Jan 2024 19:00:23 -0800
Subject: [PATCH] Adding TODO's

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

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