src/Doc/antiquote_setup.ML
changeset 59066 45ab32a542fe
parent 59064 a8bcb5a446c8
child 59067 dd8ec9138112
     1.1 --- a/src/Doc/antiquote_setup.ML	Sun Nov 30 12:46:16 2014 +0100
     1.2 +++ b/src/Doc/antiquote_setup.ML	Sun Nov 30 13:15:04 2014 +0100
     1.3 @@ -69,7 +69,7 @@
     1.4    | _ => error ("Single ML name expected in input: " ^ quote txt));
     1.5  
     1.6  fun prep_ml source =
     1.7 -  (#1 (Input.source_content source), ML_Lex.read_source false source);
     1.8 +  (Input.source_content source, ML_Lex.read_source false source);
     1.9  
    1.10  fun index_ml name kind ml = Thy_Output.antiquotation name
    1.11    (Scan.lift (Args.text_source_position -- Scan.option (Args.colon |-- Args.text_source_position)))