From 98bc135baf2bae90f39bb919f56afce5ae13a1ad Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 24 Nov 2008 23:03:27 +0000
Subject: 	* interp/lisplib.boot (compDefineExports): Tidy. 	*
 interp/define.boot (compDefineFunctor1): Adjust call.

---
 src/interp/define.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/define.boot')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index bfcfa996..fe88c86e 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -590,7 +590,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
     $e:= giveFormalParametersValues(argl,$e)
     [ds,.,$e]:= compMakeCategoryObject(target,$e) or return
        stackAndThrow('"   cannot produce category object: %1pb",[target])
-    $compileExportsOnly => compDefineExports($op, ds.1, signature',$e)
+    $compileExportsOnly => compDefineExports(form, ds.1, signature',$e)
     $domainShell:= COPY_-SEQ ds
 --+ copy needed since slot1 is reset; compMake.. can return a cached vector
     attributeList := disallowNilAttribute ds.2 --see below under "loadTimeAlist"
-- 
cgit v1.2.3