diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-07 11:39:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-07 11:39:32 +0000 |
commit | 80e53e21c3d0f18791ca5a4905217c1f89aa90f1 (patch) | |
tree | 3578ecdcb3be868ba98bd1bb0eac9ee19c411494 /src/interp/define.boot | |
parent | 69f3bfa6c96a350b086ca9f21a7f55dabb7cf30f (diff) | |
download | open-axiom-80e53e21c3d0f18791ca5a4905217c1f89aa90f1.tar.gz |
* interp/define.boot (compDefineFunctor1): Augment the envionment
with current instantiation.
* interp/c-util.boot (isSubset): Accept values of current
instantiation as values of the current domain.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 381756c3..958f8101 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1370,9 +1370,10 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], $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 - [.,.,$e]:= compMakeDeclaration("$",target,$e) + [.,.,$e] := compMakeDeclaration("$",target,$e) if not $insideCategoryPackageIfTrue then - $e:= augModemapsFromCategory('_$,'_$,target,$e) + $e := augModemapsFromCategory('_$,'_$,target,$e) + $e := put('$,'%domain,form,$e) $signature:= signature' parSignature:= applySubst($pairlis,signature') parForm:= applySubst($pairlis,form) |