Adding TODO's

justinethier · Jan 3, 2024 · 14a561a · 14a561a
1 parent 5f77e6d
commit 14a561a
Showing 1 changed file with 8 additions and 0 deletions.
diff --git 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)