diff options
author | 2010-08-22 13:43:46 -0400 | |
---|---|---|
committer | 2010-08-22 13:43:46 -0400 | |
commit | b6a5020c8e24ab0b4507aa51834eb71b10c73500 (patch) | |
tree | d081f569cf52ee803d96962b25ab35f828c696df /src/reduce_local.sml | |
parent | 6601d774abf4df795fde986279f8dc2e19e1983e (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', |