Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Isar/args.ML
changeset 14625 1ef710003a35
parent 14563 4bf2d10461f3
child 14759 c90bed2d5bdf 
--- a/src/Pure/Isar/args.ML	Mon Apr 19 08:20:52 2004 +0200
+++ b/src/Pure/Isar/args.ML	Mon Apr 19 09:27:27 2004 +0200
@@ -72,12 +72,12 @@
 fun pos_of (Arg (_, (_, pos))) = pos;
 
 fun str_of (Arg (Ident, (x, _))) = x
-  | str_of (Arg (String, (x, _))) = quote x
+  | str_of (Arg (String, (x, _))) = Library.quote x
   | str_of (Arg (Keyword, (x, _))) = x
   | str_of (Arg (EOF, _)) = "end-of-text";
 
 fun string_of (Arg (Ident, (x, _))) = x
-  | string_of (Arg (String, (x, _))) = quote x
+  | string_of (Arg (String, (x, _))) = Library.quote x
   | string_of (Arg (Keyword, (x, _))) = x
   | string_of (Arg (EOF, _)) = "";
 
@@ -229,7 +229,7 @@
 fun err_in_src kind msg (Src ((s, args), pos)) =
   error (kind ^ " " ^ quote s ^ Position.str_of pos ^ ": " ^ msg ^ "\n  " ^
     space_implode " " (map str_of args));
-
+    
 
 (* argument syntax *)
isabelle