From 9890b6de2e6877c67650f64410127ee2dfe8581e Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 3 Jan 2010 12:47:27 -0500 Subject: Proper C-side deserialization; Shake.sliceDb --- src/mono_print.sml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/mono_print.sml') diff --git a/src/mono_print.sml b/src/mono_print.sml index a5e795b2..d1f5fc27 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -334,9 +334,9 @@ fun p_exp' par env (e, _) = space, p_exp env e2, string ")"] - | EUnurlify (e, _) => box [string "unurlify(", - p_exp env e, - string ")"] + | EUnurlify (e, _, _) => box [string "unurlify(", + p_exp env e, + string ")"] | EJavaScript (m, e) => box [string "JavaScript(", p_mode env m, string ",", -- cgit v1.2.3