Mercurial > urweb
diff src/mono_shake.sml @ 1536:cbacd38d4ec2
Remove commented-out code
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 14 Aug 2011 09:31:53 -0400 |
parents | 27190faa36a3 |
children | 218e2a9a53d0 |
line wrap: on
line diff
--- a/src/mono_shake.sml Sat Aug 13 00:07:28 2011 -0430 +++ b/src/mono_shake.sml Sun Aug 14 09:31:53 2011 -0400 @@ -102,17 +102,6 @@ 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