From 8d179338f320dfc2b7d6a23204cf1ae90f4898ba Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 25 Oct 2009 12:48:50 -0400
Subject: Inlining threshold for Mono_reduce

---
 src/unnest.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/unnest.sml')

diff --git a/src/unnest.sml b/src/unnest.sml
index e0245c6f..a4bdb7a9 100644
--- a/src/unnest.sml
+++ b/src/unnest.sml
@@ -339,7 +339,7 @@ fun exp ((ks, ts), e as old, st : state) =
                                                   (*Print.prefaces "Have a vi"
                                                                  [("x", Print.PD.string x),
                                                                   ("e", ElabPrint.p_exp ElabEnv.empty e)];*)
-                                                  (x, n, t, e)
+                                                  ("$" ^ x, n, t, e)
                                               end)
                                           vis
 
-- 
cgit v1.2.3