From b9d6f3bc1f6887a65a6384e11a90a8cc7b5c6689 Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 11 Feb 2012 17:05:47 -0800
Subject: [PATCH] Add codwlk handler for extended-lambda (defaults to lambda).

---
 src/runtime/codwlk.scm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/src/runtime/codwlk.scm b/src/runtime/codwlk.scm
index 86349f316..396b41cc9 100644
--- a/src/runtime/codwlk.scm
+++ b/src/runtime/codwlk.scm
@@ -2,8 +2,8 @@
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009, 2010, 2011 Massachusetts Institute of
-    Technology
+    2006, 2007, 2008, 2009, 2010, 2011, 2012 Massachusetts Institute
+    of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -42,6 +42,7 @@ USA.
   (delay #f read-only #t)
   (disjunction #f read-only #t)
   (error-combination #f read-only #t)
+  (extended-lambda #f read-only #t)
   (lambda #f read-only #t)
   (open-block #f read-only #t)
   (quotation #f read-only #t)
@@ -65,6 +66,7 @@ USA.
 			  default)))))
 	     (let ((comment-handler (lookup 'COMMENT default))
 		   (combination-handler (lookup 'COMBINATION default))
+		   (lambda-handler (lookup 'LAMBDA default))
 		   (sequence-handler (lookup 'SEQUENCE default)))
 	       (%make-scode-walker (lookup 'ACCESS default)
 				   (lookup 'ASSIGNMENT default)
@@ -78,7 +80,8 @@ USA.
 				   (lookup 'DISJUNCTION default)
 				   (lookup 'ERROR-COMBINATION
 					   combination-handler)
-				   (lookup 'LAMBDA default)
+				   (lookup 'EXTENDED-LAMBDA lambda-handler)
+				   lambda-handler
 				   (lookup 'OPEN-BLOCK sequence-handler)
 				   (lookup 'QUOTATION default)
 				   sequence-handler
@@ -121,7 +124,8 @@ USA.
 		      (DEFINITION ,walk/definition)
 		      (DELAY ,walk/delay)
 		      (DISJUNCTION ,walk/disjunction)
-		      ((LAMBDA LEXPR EXTENDED-LAMBDA) ,walk/lambda)
+		      (EXTENDED-LAMBDA ,walk/extended-lambda)
+		      ((LAMBDA LEXPR) ,walk/lambda)
 		      (QUOTATION ,walk/quotation)
 		      (SEQUENCE-2 ,walk/sequence)
 		      (THE-ENVIRONMENT ,walk/the-environment)
@@ -180,6 +184,10 @@ USA.
   expression
   (scode-walker/disjunction walker))
 
+(define (walk/extended-lambda walker expression)
+  expression
+  (scode-walker/extended-lambda walker))
+
 (define (walk/lambda walker expression)
   expression
   (scode-walker/lambda walker))
-- 
2.25.1