# HG changeset patch
# User wenzelm
# Date 1230907472 -3600
# Node ID aa6d11fbe3b64504a3ca351c63d4687db5873b77
# Parent  ddf7fad4448c52fdb0fb52f887e92b37044f8e71
added props_text (from outer_parse.ML);

diff -r ddf7fad4448c -r aa6d11fbe3b6 src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Fri Jan 02 15:44:32 2009 +0100
+++ b/src/Pure/Isar/isar_syn.ML	Fri Jan 02 15:44:32 2009 +0100
@@ -757,9 +757,13 @@
 
 (* nested commands *)
 
+val props_text =
+  Scan.optional ValueParse.properties [] -- P.position P.string >> (fn (props, (str, pos)) =>
+    (Position.of_properties (Position.default_properties pos props), str));
+
 val _ =
   OuterSyntax.improper_command "Isabelle.command" "nested Isabelle command" K.control
-    (P.props_text :|-- (fn (pos, str) =>
+    (props_text :|-- (fn (pos, str) =>
       (case OuterSyntax.parse pos str of
         [tr] => Scan.succeed (K tr)
       | _ => Scan.fail_with (K "exactly one command expected"))