diff options
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index b5d8806a..e2bc37fa 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -1529,7 +1529,7 @@ fun p_file env (ds, ps) = let val (ts, defInputs, inputsVar) = case ek of - Core.Link => (ts, string "", string "") + Core.Link => (List.take (ts, length ts - 1), string "", string "") | Core.Action => case List.nth (ts, length ts - 2) of (TRecord i, _) => |