From: Jacob Katzenelson <edu/mit/csail/zurich/jacob>
Date: Tue, 3 Aug 1993 22:40:23 +0000 (+0000)
Subject: Upgrade dumpable expanders to satisfy new arity.
X-Git-Tag: 20090517-FFI~8127
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d12b02328150a0e06493e6217678c7b34e59bb9;p=mit-scheme.git

Upgrade dumpable expanders to satisfy new arity.
---

diff --git a/v7/src/sf/pardec.scm b/v7/src/sf/pardec.scm
index cac164a50..355b220f9 100644
--- a/v7/src/sf/pardec.scm
+++ b/v7/src/sf/pardec.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pardec.scm,v 4.7 1993/01/02 07:33:36 cph Exp $
+$Id: pardec.scm,v 4.8 1993/08/03 22:40:23 jacob Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -361,9 +361,9 @@ MIT in each case. |#
       (error "Bad declaration:" kind declarations)))
 
 (define (make-dumpable-expander expander declaration)
-  (make-entity (lambda (self operands if-expanded if-not-expanded block)
+  (make-entity (lambda (self expr operands if-expanded if-not-expanded block)
 		 self			; ignored
-		 (expander operands if-expanded if-not-expanded block))
+		 (expander expr operands if-expanded if-not-expanded block))
 	       (cons '*DUMPABLE-EXPANDER* declaration)))
 
 (define (dumpable-expander? object)