From 80e53e21c3d0f18791ca5a4905217c1f89aa90f1 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 7 Sep 2011 11:39:32 +0000 Subject: * 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. --- src/interp/define.boot | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/interp/define.boot') 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) -- cgit v1.2.3