diff options
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 375ea972..d058a937 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -361,7 +361,9 @@ addConstructorModemaps(name,form is [functorName,:.],e) == --The way XLAMs work: --- ((XLAM ($1 $2 $3) (SETELT $1 0 $3)) X "c" V) ==> (SETELT X 0 V) +-- ((XLAM ($1 $2 $3) (%store (%vref $1 0) $3)) X "c" V) ==> +-- (%store (%vref X 0) V) +-- getDomainsInScope e == $insideCapsuleFunctionIfTrue=true => $CapsuleDomainsInScope |