diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-16 04:31:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-16 04:31:36 +0000 |
commit | 3372c377eded97a0094f63cddd2e039af7066431 (patch) | |
tree | 280aa27d614936a62aa141bc5a81451a08d42be9 /src/interp/wi1.boot | |
parent | 40777fd4db18e8656ae53dd4df9112b42df329db (diff) | |
download | open-axiom-3372c377eded97a0094f63cddd2e039af7066431.tar.gz |
* interp/define.boot (compDefineCategory2): Use rwriteLispForm.
(compDefineFunctor1): Likewise.
* interp/wi1.boot (compDefineCategory2): Likewise.
(compDefineFunctor1): Likewise.
Diffstat (limited to 'src/interp/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index b76c2ba9..846e7183 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -1232,11 +1232,11 @@ compDefineCategory2(form,signature,specialCases,body,m,e, pairlis:= [[a,:v] for a in argl for v in $FormalMapVariableList] parSignature:= SUBLIS(pairlis,signature') parForm:= SUBLIS(pairlis,form) ----- lisplibWrite('"compilerInfo", +---- rwriteLispForm('"compilerInfo", ---- ['SETQ,'$CategoryFrame, ---- ['put,['QUOTE,op'],' ---- (QUOTE isCategory),true,['addModemap,MKQ op',MKQ parForm, ----- MKQ parSignature,true,MKQ fun,'$CategoryFrame]]],$libFile) +---- MKQ parSignature,true,MKQ fun,'$CategoryFrame]]]) --Equivalent to the following two lines, we hope if null sargl then evalAndRwriteLispForm('NILADIC, |