From 0eeb6c7b5e6017bd9af6eb57dd9ab1c72eb0a331 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 Jun 2010 21:05:08 -0700
Subject: [PATCH] Add some more named patterns.

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

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