src/Pure/Tools/rail.ML

--- a/src/Pure/Tools/rail.ML	Wed Mar 25 10:59:28 2015 +0100
+++ b/src/Pure/Tools/rail.ML	Wed Mar 25 11:39:52 2015 +0100
@@ -364,7 +364,7 @@
 
 val _ = Theory.setup
   (Thy_Output.antiquotation @{binding rail}
-    (Scan.lift (Parse.source_position (Parse.string || Parse.cartouche)))
+    (Scan.lift (Parse.input (Parse.string || Parse.cartouche)))
     (fn {state, context, ...} => output_rules state o read context));
 
 end;