view tests/char.ur @ 1480:aa0c6382aa57

top.urs: More comments
author Robin Green <greenrd@greenrd.org>
date Tue, 28 Jun 2011 11:55:57 +0100
parents 395a5d450cc0
children
line wrap: on
line source
fun main () =
  case #"A" of
      #"B" => return <xml/>
    | _ => return <xml>A!</xml>