From 32a540e56909917ab5519c0a91d26b7c2b740e10 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 14 Aug 2011 09:31:53 -0400
Subject: Remove commented-out code

---
 src/mono_shake.sml | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'src')

diff --git a/src/mono_shake.sml b/src/mono_shake.sml
index 7eb66705..f601e712 100644
--- a/src/mono_shake.sml
+++ b/src/mono_shake.sml
@@ -102,17 +102,6 @@ fun shake file =
 
         and shakeExp s = U.Exp.fold {typ = typ, exp = exp} s
 
-(*
-        val usedVars = U.Exp.fold {typ = fn (c, st as (cs, es)) =>
-                                            case c of
-                                                TDatatype (n, _) => (IS.add (cs, n), es)
-                                              | _ => st,
-                                   exp = fn (e, st as (cs, es)) =>
-                                            case e of
-                                                ENamed n => (cs, IS.add (es, n))
-                                              | _ => st}
-*)
-
         fun usedVars (cs, es) e =
             let
                 val {con = cs', exp = es'} = shakeExp {con = cs, exp = es} e
-- 
cgit v1.2.3