From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 27 Jun 2010 05:22:58 +0000 (-0700)
Subject: Add INDEX matcher since that's so common.
X-Git-Tag: 20100708-Gtk~11
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=842bda018dd26aa450658e56c3e8d3401432d690;p=mit-scheme.git

Add INDEX matcher since that's so common.
---

diff --git a/src/runtime/syntax-check.scm b/src/runtime/syntax-check.scm
index bf59fbe7b..25c81db08 100644
--- a/src/runtime/syntax-check.scm
+++ b/src/runtime/syntax-check.scm
@@ -51,6 +51,7 @@ USA.
 	     ((STRING) (string? object))
 	     ((CHAR) (char? object))
 	     ((URI) (->uri object #f))
+	     ((INDEX) (exact-nonnegative-integer? object))
 	     (else (match-error))))
 	  ((pair? pattern)
 	   (case (car pattern)