diff options
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', |