aboutsummaryrefslogtreecommitdiff
path: root/src/interp/define.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-01 14:53:11 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-01 14:53:11 +0000
commitfd12ad84f465b3fab7d8e7bdc48febb940faa761 (patch)
treeec70f2a5dcb8f9197edbdc06442822a905455cc0 /src/interp/define.boot
parent8ca7f8357b22f6a24eeafeeddc6d18270d5fa9ad (diff)
downloadopen-axiom-fd12ad84f465b3fab7d8e7bdc48febb940faa761.tar.gz
more cleanups
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r--src/interp/define.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 4cc81d97..4ab517d8 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -812,7 +812,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
['MAKEPROP,['QUOTE,op'],'(QUOTE NILADIC),true])
-- 6. put modemaps into InteractiveModemapFrame
- $domainShell := eval [op',:MAPCAR('MKQ,sargl)]
+ $domainShell := eval [op',:[MKQ f for f in sargl]]
$lisplibCategory:= formalBody
if $LISPLIB then
$lisplibForm:= form