diff options
Diffstat (limited to 'src/defunc.sml')
| -rw-r--r-- | src/defunc.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/defunc.sml b/src/defunc.sml index 8771d782..1e997983 100644 --- a/src/defunc.sml +++ b/src/defunc.sml @@ -113,7 +113,10 @@ fun exp (env, e, st) = val (xes, st) = ListUtil.foldlMap (fn (tup as (fnam as (CName x, loc), e, xt), st) => - if x <> "Link" andalso x <> "Action" then + if (x <> "Link" andalso x <> "Action") + orelse case #1 e of + ENamed _ => true + | _ => false then (tup, st) else let |