diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-12-16 15:34:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-12-16 15:34:30 +0000 |
| commit | 12dc00f15508b450466c57b42ad0e7eb6ad208b1 (patch) | |
| tree | 3b5518a219740551e5e3f49633c49e24725847b7 /src/interp/wi2.boot | |
| parent | 9266fff774696b85654ccf65307f2683e34a808f (diff) | |
| download | open-axiom-12dc00f15508b450466c57b42ad0e7eb6ad208b1.tar.gz | |
Daily bump
Diffstat (limited to 'src/interp/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index 45fa17f3..5e9ed89a 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -131,7 +131,7 @@ compDefineFunctor1(df, m,$e,$prefix,$formalArgList) == $NRTloadTimeAlist: local := nil --used for things in slot4 (NRTsetVector4) $NRTdomainFormList: local := nil -- of form ((gensym . (Repe...)) ... -- the above optimizes the calls to local domains - $template: local:= nil --stored in the lisplib (if $NRTvec = true) + $template: local:= nil --stored in the lisplib $functionLocations: local := nil --locations of defined functions in source -- generate slots for arguments first, then for $NRTaddForm in compAdd for x in argl repeat NRTgetLocalIndex x @@ -651,7 +651,6 @@ compApplyModemap(form,modemap,$e,sl) == --+ information which is no longer valid; thus ignore this index and --+ store the signature instead. ---$NRTflag=true and f is [op1,d,.] and NE(d,'$) and member(op1,'(ELT CONST)) => f is [op1,d,.] and member(op1,'(ELT CONST Subsumed)) => [genDeltaEntry [op,:modemap],lt',$bindings] markImport mc |