[hcoop/debian/mlton.git] / regression / layout.sml


fun layout (cbs : (string * real) list list) : string =
  let 
    val layoutcb =
      map (fn (con,_) => con)

    fun layoutdb cb = "{" ^ concat(layoutcb cb) ^ "}"
  in concat(map layoutdb cbs)
  end
Commit	Line	Data
7f918cf1 CE	1
	2	fun layout (cbs : (string * real) list list) : string =
	3	let
	4	val layoutcb =
	5	map (fn (con,_) => con)
	6
	7	fun layoutdb cb = "{" ^ concat(layoutcb cb) ^ "}"
	8	in concat(map layoutdb cbs)
	9	end