From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Jun 2010 04:05:08 +0000 (-0700)
Subject: Add some more named patterns.
X-Git-Tag: 20100708-Gtk~16
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0eeb6c7b5e6017bd9af6eb57dd9ab1c72eb0a331;p=mit-scheme.git

Add some more named patterns.
---

diff --git a/src/runtime/syntax-check.scm b/src/runtime/syntax-check.scm
index b819ad616..bf59fbe7b 100644
--- a/src/runtime/syntax-check.scm
+++ b/src/runtime/syntax-check.scm
@@ -48,6 +48,9 @@ USA.
 	     ((DATUM EXPRESSION FORM) #t)
 	     ((R4RS-BVL) (r4rs-lambda-list? object))
 	     ((MIT-BVL) (mit-lambda-list? object))
+	     ((STRING) (string? object))
+	     ((CHAR) (char? object))
+	     ((URI) (->uri object #f))
 	     (else (match-error))))
 	  ((pair? pattern)
 	   (case (car pattern)