diff options
Diffstat (limited to 'src/core_untangle.sml')
-rw-r--r-- | src/core_untangle.sml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/core_untangle.sml b/src/core_untangle.sml index f00bd95b..d734cc6f 100644 --- a/src/core_untangle.sml +++ b/src/core_untangle.sml @@ -48,8 +48,7 @@ fun exp thisGroup (e, s) = case e of ENamed n => try n | EClosure (n, _) => try n - | EServerCall (n, _, _, _, _) => try n - | ETailCall (n, _, _, _, _) => try n + | EServerCall (n, _, _) => try n | _ => s end |