diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-08-22 13:43:46 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-08-22 13:43:46 -0400 |
| commit | 7765b90d25f98bd9eb0cf2998121e51d4551f733 (patch) | |
| tree | d081f569cf52ee803d96962b25ab35f828c696df /src/reduce_local.sml | |
| parent | 1bd7feb39add77e14df852d2087902049f2b5df3 (diff) | |
Reduce: Inline let-bound variables whose types involve functions
Diffstat (limited to 'src/reduce_local.sml')
| -rw-r--r-- | src/reduce_local.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/reduce_local.sml b/src/reduce_local.sml index 9370c95b..cfa6bfd8 100644 --- a/src/reduce_local.sml +++ b/src/reduce_local.sml @@ -136,7 +136,7 @@ fun con env (all as (c, loc)) = let fun find (n', env, nudge, liftC) = case env of - [] => raise Fail "Reduce.con: CRel" + [] => raise Fail "ReduceLocal.con: CRel" | Unknown :: rest => find (n', rest, nudge, liftC) | Known _ :: rest => find (n', rest, nudge, liftC) | Lift (liftC', _) :: rest => find (n', rest, nudge + liftC', |