From 842bda018dd26aa450658e56c3e8d3401432d690 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Jun 2010 22:22:58 -0700
Subject: [PATCH] Add INDEX matcher since that's so common.

---
 src/runtime/syntax-check.scm | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
2.25.1