# HG changeset patch
# User wenzelm
# Date 1218569289 -7200
# Node ID 141772c866c9ad99f0aad9967b619943092d3531
# Parent  86f0f91471d0a016c75454a1139944b830e2c102
OuterSyntax.scan: pass position;

diff -r 86f0f91471d0 -r 141772c866c9 src/Tools/code/code_target.ML
--- a/src/Tools/code/code_target.ML	Tue Aug 12 21:28:07 2008 +0200
+++ b/src/Tools/code/code_target.ML	Tue Aug 12 21:28:09 2008 +0200
@@ -2315,7 +2315,8 @@
     K.diag (P.!!! (code_exprP export_code_cmd) >> (fn f => Toplevel.keep (f o Toplevel.theory_of)));
 
 fun shell_command thyname cmd = Toplevel.program (fn _ =>
-  (use_thy thyname; case Scan.read OuterLex.stopper (P.!!! (code_exprP export_code_cmd)) ((filter OuterLex.is_proper o OuterSyntax.scan) cmd)
+  (use_thy thyname; case Scan.read OuterLex.stopper (P.!!! (code_exprP export_code_cmd))
+    ((filter OuterLex.is_proper o OuterSyntax.scan Position.none) cmd)
    of SOME f => (writeln "Now generating code..."; f (theory thyname))
     | NONE => error ("Bad directive " ^ quote cmd)))
   handle TOPLEVEL_ERROR => OS.Process.exit OS.Process.failure;