Add stub definition for GENERATE-PATTERN-MATCHER.

diff --git a/src/compiler/base/pmlook.scm b/src/compiler/base/pmlook.scm
index 97ac27a57fcff70644c4a89c479fe0cc6ffe2fb1..c71e0bcd38c81fc68473af51f389123067bfd731 100644 (file)
--- a/src/compiler/base/pmlook.scm
+++ b/src/compiler/base/pmlook.scm
@@ -94,6 +94,10 @@ USA.
     (and value-list
         (apply body value-list))))
 
+;; Stub definition for the moment.
+(define (generate-pattern-matcher pattern body environment)
+  (error "GENERATE-PATTERN-MATCHER: Stub not yet implemented."))
+
 (define (pattern-variables pattern)
   (let loop ((pattern pattern) (vars '()))
     (cond ((pair? pattern)