[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] src/interp/compiler.boot.pamphlet
From: |
daly |
Subject: |
[Axiom-developer] src/interp/compiler.boot.pamphlet |
Date: |
Tue, 5 Dec 2006 23:52:53 -0600 |
I see that there is a change to compiler.boot in the sandbox code
but I don't understand the reason for the change. I'm not sure who
made the change as it is not recorded in the changelog files.
What is the problem that this change is designed to solve?
Is there a test case for it?
Tim
=========================================================================
--- sandbox/src/interp/compiler.boot.pamphlet
+++ daly/src/interp/compiler.boot.pamphlet
@@ -494,13 +494,12 @@
T
T
+--------------------> NEW DEFINITION (override in xruncomp.boot.pamphlet)
getFormModemaps(form is [op,:argl],e) ==
op is ["elt",domain,op1] =>
[x for x in getFormModemaps([op1,:argl],e) | x is [[ =domain,:.],:.]]
null atom op => nil
modemapList:= get(op,"modemap",e)
- if $insideCategoryPackageIfTrue then
- modemapList := [x for x in modemapList | x is [[dom,:.],:.] and dom ^= '$]
if op="elt"
then modemapList:= eltModemapFilter(LAST argl,modemapList,e) or return nil
else
- [Axiom-developer] src/interp/compiler.boot.pamphlet,
daly <=