Skip to content

Commit

Permalink
Fix error where record type can't be inferred by Moscow ML
Browse files Browse the repository at this point in the history
Introduced by b3ae0ef
  • Loading branch information
mn200 committed Sep 2, 2018
1 parent b9d9273 commit a03a2b6
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/portableML/OldPP.sml
Expand Up @@ -263,7 +263,7 @@ fun print_BB (PPS {the_indent_stack,linewidth,space_left,...}, {Pblocks, Ublocks
end

(* Uend should always be 0 when print_E is called. *)
fun print_E (istack,{Pend, Uend, ...}) =
fun print_E (istack,{Pend, Uend}) =
if !Pend = 0 andalso !Uend = 0
then raise Fail "PP-error: print_E"
else let fun pop_n_times 0 = ()
Expand Down

0 comments on commit a03a2b6

Please sign in to comment.