~ chicken-core (chicken-5) 0a4f4ab156081cc69a5105a1e9a9661cd22e31cf

commit 0a4f4ab156081cc69a5105a1e9a9661cd22e31cf
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jun 3 20:43:55 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jun 3 20:43:55 2010 +0200

    trivial changes

diff --git a/library.scm b/library.scm
index e9a444cc..90151124 100644
--- a/library.scm
+++ b/library.scm
@@ -4637,6 +4637,6 @@ EOF
       (pnum major)
       (pchr #\/)
       (pnum minor)
-      (pstr " GCs")))
+      (pstr " GCs (major/minor)")))
   (##sys#write-char-0 #\newline ##sys#standard-error)
   (##sys#flush-output ##sys#standard-error))
diff --git a/regex.scm b/regex.scm
index 2112f866..526e65ad 100644
--- a/regex.scm
+++ b/regex.scm
@@ -79,7 +79,7 @@
 	 (%tmp (r 'tmp))
 	 (%begin (r 'begin))
 	 (cache (make-vector (add1 n2) #f)))
-    (vector-set! cache n2 0)
+    (vector-set! cache n2 0)		; last slot: current index
     `(,%let* ((,%cache (,%quote ,cache))
 	      (,%arg ,arg))
 	     ,(let fold ((i 0))