diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-01-19 17:20:58 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-01-19 17:35:59 +0100 |
| commit | a532777dcfc59128be2daa7cc74c7881a06f8cb3 (patch) | |
| tree | 97cde2983485df683a6a82780f1365c47aacadf7 /interp/genintern.ml | |
| parent | 7e6e533b148c9d57251388e9f1646a6829d10bfb (diff) | |
Adding a default object to generic argument registering mechanism.
Diffstat (limited to 'interp/genintern.ml')
| -rw-r--r-- | interp/genintern.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/interp/genintern.ml b/interp/genintern.ml index fef32a5ff..bc41c834a 100644 --- a/interp/genintern.ml +++ b/interp/genintern.ml @@ -24,12 +24,14 @@ module InternObj = struct type ('raw, 'glb, 'top) obj = ('raw, 'glb) intern_fun let name = "intern" + let default _ = None end module SubstObj = struct type ('raw, 'glb, 'top) obj = 'glb subst_fun let name = "subst" + let default _ = None end module Intern = Register (InternObj) |