From 2d12b02328150a0e06493e6217678c7b34e59bb9 Mon Sep 17 00:00:00 2001 From: Jacob Katzenelson Date: Tue, 3 Aug 1993 22:40:23 +0000 Subject: [PATCH] Upgrade dumpable expanders to satisfy new arity. --- v7/src/sf/pardec.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1