Add some more named patterns.

diff --git a/src/runtime/syntax-check.scm b/src/runtime/syntax-check.scm
index b819ad616dad890084be344b7eb9b74c5f116410..bf59fbe7be819ae18d5f87c377a873468bae29ef 100644 (file)
--- 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)