From 768fd72de4842c23813cd45bfae4918c7395e0c1 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 16 May 2009 12:41:33 -0400 Subject: Fix a Core_untangle bug that missed closure variable references; XHTMLize --- src/core_print.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/core_print.sml') diff --git a/src/core_print.sml b/src/core_print.sml index e9d8951e..8dcb3228 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -576,7 +576,7 @@ fun p_decl env (dAll as (d, _) : decl) = space, string "constraints", space, - p_exp env ce] + p_exp (E.declBinds env dAll) ce] | DSequence (x, n, s) => box [string "sequence", space, p_named x n, -- cgit v1.2.3