Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make SML/NJ happy;
authorwenzelm
Mon, 20 Oct 1997 17:08:18 +0200
changeset 3958 78a8e9a1c2f9
parent 3957 7914990748ad
child 3959 033633d9a032
make SML/NJ happy;
src/Pure/Thy/thy_parse.ML file | annotate | diff | comparison | revisions
src/Pure/term.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Thy/thy_parse.ML	Mon Oct 20 15:20:42 1997 +0200
+++ b/src/Pure/Thy/thy_parse.ML	Mon Oct 20 17:08:18 1997 +0200
@@ -415,7 +415,7 @@
 
 (* local, global path *)
 
-val empty_decl = empty >> K "";
+fun empty_decl toks = (empty >> K "") toks;
 
 val global_path =
   "|> (fn thy => if ! global_names then thy else Theory.add_path \"/\" thy)";
--- a/src/Pure/term.ML	Mon Oct 20 15:20:42 1997 +0200
+++ b/src/Pure/term.ML	Mon Oct 20 17:08:18 1997 +0200
@@ -50,7 +50,7 @@
   | Var   of indexname * typ
   | Bound of int
   | Abs   of string*typ*term
-  | op $  of term*term;
+  | $     of term*term;
 
 
 (*For errors involving type mismatches*)
isabelle