diff options
author | 2001-12-19 17:44:19 +0000 | |
---|---|---|
committer | 2001-12-19 17:44:19 +0000 | |
commit | 458d8598a9d81cd86dce59475c49363e1f9da729 (patch) | |
tree | dc7fb7973c827e89a9c3a9748310408b8cc0907b /contrib/interface | |
parent | ea36b1b4bf839fa2db32d9ee8e5fe688d8db3b28 (diff) |
contrib/interface/dad.ml4 had no real need of streams, it should have been
translated into a regular ml files like the others. This mistake is now
corrected. The Makefile and dependency files are updated accordingly.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2345 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
-rw-r--r-- | contrib/interface/dad.ml (renamed from contrib/interface/dad.ml4) | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/contrib/interface/dad.ml4 b/contrib/interface/dad.ml index ce3817404..ceb0f5953 100644 --- a/contrib/interface/dad.ml4 +++ b/contrib/interface/dad.ml @@ -253,8 +253,7 @@ vinterp_add "AddDadRule" (function () -> let pr = match decompose_path (p1, p2) with pr, _, _ -> pr in (add_dad_rule name (Ctast.ast_to_ct pat) p1 p2 (List.length pr) pr (Ctast.ast_to_ct com))) - | _ -> errorlabstrm "AddDadRule1" - [< str "AddDadRule2">]); + | _ -> errorlabstrm "AddDadRule1" (str "AddDadRule2")); add_dad_rule "distributivity-inv" (Node(zz,"APPLIST",[Nvar(zz,"mult");Node(zz,"APPLIST",[Nvar(zz,"plus");Node(zz,"META",[Num(zz,4)]);Node(zz,"META",[Num(zz,3)])]);Node(zz,"META",[Num(zz,2)])])) [2; 2] @@ -355,4 +354,4 @@ vinterp_add "StartDad" (function | [] -> (function () -> start_dad()) - | _ -> errorlabstrm "StartDad" [< >]);; + | _ -> errorlabstrm "StartDad" (mt()));; |