diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-07-08 16:38:34 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-07-08 16:38:34 +0200 |
| commit | 8b093fa1828eee800da2bc73de33ea8804175924 (patch) | |
| tree | 23e37a6cfe0fa6aeb69dfbf678232f90edad5a64 /interp/notation.ml | |
| parent | 002606c190a69e02f3d8b722eb64bae02e457f98 (diff) | |
Make sure that scope classes are displayed by Print Scopes. (Fix bug #4262)
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 0b5791d32..d18b804bf 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -796,8 +796,8 @@ let pr_scope_classes sc = let l = classes_of_scope sc in match l with | [] -> mt () - | _ :: l -> - let opt_s = match l with [] -> mt () | _ -> str "es" in + | _ :: ll -> + let opt_s = match ll with [] -> mt () | _ -> str "es" in hov 0 (str "Bound to class" ++ opt_s ++ spc() ++ prlist_with_sep spc pr_scope_class l) ++ fnl() |