diff options
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 60e16e7094..f90219b247 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -369,7 +369,7 @@ let cache_arguments_scope (_,(r,scl)) = List.iter (option_iter check_scope) scl; arguments_scope := Refmap.add r scl !arguments_scope -let subst_arguments_scope (_,subst,(r,scl)) = (subst_global subst r,scl) +let subst_arguments_scope (_,subst,(r,scl)) = (fst (subst_global subst r),scl) let (inArgumentsScope,outArgumentsScope) = declare_object {(default_object "ARGUMENTS-SCOPE") with |