src/Tools/Code/code_scala.ML
changeset 37748 0af0d45257be
parent 37745 6315b6426200
child 37819 000049335247
     1.1 --- a/src/Tools/Code/code_scala.ML	Thu Jul 08 16:28:18 2010 +0200
     1.2 +++ b/src/Tools/Code/code_scala.ML	Thu Jul 08 16:41:57 2010 +0200
     1.3 @@ -382,7 +382,7 @@
     1.4          val _ = File.mkdir_leaf (Path.dir pathname);
     1.5        in File.write pathname (code_of_pretty content) end
     1.6    in
     1.7 -    Code_Target.mk_serialization target NONE
     1.8 +    Code_Target.mk_serialization target
     1.9        (fn NONE => K () o map (code_writeln o snd) | SOME file => K () o map
    1.10          (write_module (check_destination file)))
    1.11        (rpair [] o cat_lines o map (code_of_pretty o snd))