src/Pure/Thy/thy_parse.ML

--- a/src/Pure/Thy/thy_parse.ML	Mon Dec 28 16:50:11 1998 +0100
+++ b/src/Pure/Thy/thy_parse.ML	Mon Dec 28 16:50:37 1998 +0100
@@ -177,8 +177,9 @@
 
 fun split_decls l = flat (map (fn (xs, y) => map (rpair y) xs) l);
 
-fun strip_quotes str =
-  implode (tl (take (size str - 1, explode str)));
+(*Remove the leading and trailing chararacters.  Actually called to
+  remove quotation marks.*)
+fun strip_quotes s = String.substring (s, 1, size s - 2);
 
 
 (* names *)