From fa2918e5a68bcd16de94146ca20fb8b6fd6f8a07 Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Thu, 12 Jan 2012 07:58:37 -0800
Subject: [PATCH] Add stub definition for GENERATE-PATTERN-MATCHER.

---
 src/compiler/base/pmlook.scm | 4 ++++
 1 file changed, 4 insertions(+)

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