From bd4553ef3acf93cc290864a69c1cc409736e20c5 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 2 Dec 2006 11:34:47 -0500
Subject: [PATCH] added documentation for substring

---
 lib/libcore.ss | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/libcore.ss b/lib/libcore.ss
index 3e7c0e0..ac26755 100644
--- a/lib/libcore.ss
+++ b/lib/libcore.ss
@@ -222,7 +222,10 @@
         (let ([s ($make-string n)])
           (fill-strings s s* 0))))))
 
-
+#|procedure:substring 
+  (substring str i j)
+  Returns a substring of str starting from index i (inclusive)
+  and ending with index j (exclusive).|#
 (let ()
   (define fill
     (lambda (s d si sj di)
@@ -851,7 +854,9 @@
                    (f x v n ($fxadd1 i)))))
         (error 'vector-memq "~s is not a vector" v))))
 
-(primitive-set! 'memv memq) ; INCORRECT, SHOULD USE EQV
+#|BUG: memv should be defined in terms of eqv? now that we have
+bignums.|#
+(primitive-set! 'memv memq)
 (primitive-set! 'vector-memv vector-memq)
  
 (primitive-set! 'list->string