← Back to branch summary

~ubuntu-branches/ubuntu/wily/coq-doc/wily

« back to all changes in this revision

Viewing changes to tactics/tacinterp.ml

  • Committer: Package Import Robot
  • Author(s): Stéphane Glondu
  • Date: 2012-01-03 23:42:48 UTC
  • mfrom: (1.2.4)
  • Revision ID: package-import@ubuntu.com-20120103234248-p9r8h1579n67v55a
Tags: 8.3pl3-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
tactics/tacinterp.ml
1
1
(************************************************************************)
2
2
(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
3
 
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010     *)
 
3
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2011     *)
4
4
(*   \VV/  **************************************************************)
5
5
(*    //   *      This file is distributed under the terms of the       *)
6
6
(*         *       GNU Lesser General Public License Version 2.1        *)
7
7
(************************************************************************)
8
8
 
9
 
(* $Id: tacinterp.ml 13489 2010-10-03 22:27:12Z herbelin $ *)
 
9
(* $Id: tacinterp.ml 14677 2011-11-17 22:19:38Z herbelin $ *)
10
10
 
11
11
open Constrintern
12
12
open Closure
995
995
      | None ->
996
996
          lookup_genarg_glob s ist x
997
997
 
 
998
let intern_pure_tactic ist a =
 
999
  match intern_tactic ist a with
 
1000
  | TacArg (TacCall _ | TacExternal _ | Reference _ | TacDynamic _ | Tacexp _) as a -> a
 
1001
  | TacArg _ | TacFun _ -> error "Tactic expected."
 
1002
  | a -> a
 
1003
 
998
1004
(************* End globalization ************)
999
1005
 
1000
1006
(***************************************************************************)