aboutsummaryrefslogtreecommitdiffhomepage
path: root/contrib/subtac/subtac.ml
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/subtac/subtac.ml')
-rw-r--r--contrib/subtac/subtac.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/subtac/subtac.ml b/contrib/subtac/subtac.ml
index ac4b9642e..1cfe69aa9 100644
--- a/contrib/subtac/subtac.ml
+++ b/contrib/subtac/subtac.ml
@@ -145,8 +145,8 @@ let subtac (loc, command) =
| VernacAssumption (stre,nl,l) ->
vernac_assumption env isevars stre l nl
- | VernacInstance (sup, is, props, pri) ->
- ignore(Subtac_classes.new_instance sup is props pri)
+ | VernacInstance (glob, sup, is, props, pri) ->
+ ignore(Subtac_classes.new_instance ~global:glob sup is props pri)
| VernacCoFixpoint (l, b) ->
let _ = trace (str "Building cofixpoint") in