[hcoop/debian/mlton.git] / lib / cml / tests / print.sml

structure TextIO =
   struct
      open TextIO
      fun print s =
         MLton.Thread.atomically
         (fn () => TextIO.print s)
   end

val print = TextIO.print
Commit	Line	Data
7f918cf1 CE	1	structure TextIO =
	2	struct
	3	open TextIO
	4	fun print s =
	5	MLton.Thread.atomically
	6	(fn () => TextIO.print s)
	7	end
	8
	9	val print = TextIO.print