comparison lib/ur/basis.urs @ 728:2197f0e24a9f

Avoid thread death via message receive
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Apr 2009 13:00:40 -0400
parents ba4c230b7231
children 7c6b6c3c7b79
comparison
equal deleted inserted replaced
727:ba4c230b7231 728:2197f0e24a9f
551 (** Aborting *) 551 (** Aborting *)
552 552
553 val error : t ::: Type -> xbody -> t 553 val error : t ::: Type -> xbody -> t
554 554
555 val onError : (xbody -> transaction unit) -> transaction unit 555 val onError : (xbody -> transaction unit) -> transaction unit
556 val onFail : (string -> transaction unit) -> transaction unit
556 (* Client-side only *) 557 (* Client-side only *)
557 558
558 val show_xml : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> show (xml ctx use bind) 559 val show_xml : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> show (xml ctx use bind)