]> matita.cs.unibo.it Git - helm.git/commitdiff
small fix to make it compile again
authornotin <??>
Tue, 20 Feb 2007 14:45:11 +0000 (14:45 +0000)
committernotin <??>
Tue, 20 Feb 2007 14:45:11 +0000 (14:45 +0000)
daemons/whelp/searchEngine.ml

index 924f69a7692196b845171c70fd7a917b6ee23c0a..2924f6eb16fa4b2e9aa0a5391113d949485be4db 100644 (file)
@@ -373,7 +373,7 @@ let exec_action dbd (req: Http_types.request) outchan =
       | "/match" -> Whelp.match_term ~dbd term
       | "/instance" -> Whelp.instance ~dbd term
       | "/hint" ->
-          let status = ProofEngineTypes.initial_status term metasenv in
+          let status = ProofEngineTypes.initial_status term metasenv [] in
           let intros = PrimitiveTactics.intros_tac () in
           let subgoals = ProofEngineTypes.apply_tactic intros status in
           (match subgoals with