From: Joe Marshall <eval.apply@gmail.com>
Date: Thu, 12 Jan 2012 15:58:37 +0000 (-0800)
Subject: Add stub definition for GENERATE-PATTERN-MATCHER.
X-Git-Tag: release-9.2.0~334^2~31
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa2918e5a68bcd16de94146ca20fb8b6fd6f8a07;p=mit-scheme.git

Add stub definition for GENERATE-PATTERN-MATCHER.
---

diff --git a/src/compiler/base/pmlook.scm b/src/compiler/base/pmlook.scm
index 97ac27a57..c71e0bcd3 100644
--- 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)