diff options
Diffstat (limited to 'src/interp/template.boot')
-rw-r--r-- | src/interp/template.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/template.boot b/src/interp/template.boot index 78018e07..d77f8630 100644 --- a/src/interp/template.boot +++ b/src/interp/template.boot @@ -89,18 +89,18 @@ stuffSlots(dollar,template) == pp item --------------------> NEW DEFINITION (see interop.boot.pamphlet) ---------------------> NEW DEFINITION (override in xrun.boot.pamphlet) evalSlotDomain(u,dollar) == $returnNowhereFromGoGet: local := false $ : fluid := dollar $lookupDefaults : local := nil -- new world u = '$ => dollar + u = "$$" => dollar FIXP u => VECP (y := dollar.u) => y y is ['SETELT,:.] => eval y--lazy domains need to marked; this is dangerous? y is [v,:.] => VECP v => lazyDomainSet(y,dollar,u) --old style has [$,code,:lazyt] - GETDATABASE(v,'CONSTRUCTOR?) => + constructor? v or MEMQ(v,'(Record Union Mapping)) => lazyDomainSet(y,dollar,u) --new style has lazyt y y |