aboutsummaryrefslogtreecommitdiff
path: root/src/interp/template.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/template.boot')
-rw-r--r--src/interp/template.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/template.boot b/src/interp/template.boot
index c0739a63..0f0cb908 100644
--- a/src/interp/template.boot
+++ b/src/interp/template.boot
@@ -108,7 +108,7 @@ evalSlotDomain(u,dollar) ==
u is ['NRTEVAL,y] => eval y
u is ['QUOTE,y] => y
u is ['Record,:argl] =>
- FUNCALL('Record0,[[tag,:evalSlotDomain(dom,dollar)]
+ apply('Record,[[":",tag,evalSlotDomain(dom,dollar)]
for [.,tag,dom] in argl])
u is ['Union,:argl] and first argl is ['_:,.,.] =>
APPLY('Union,[['_:,tag,evalSlotDomain(dom,dollar)]