SCM Repository

[smlnj] View of /sml/trunk/src/smlnj-lib/Reactive/OLD/test.sml

[smlnj] / sml / trunk / src / smlnj-lib / Reactive / OLD / test.sml

View of /sml/trunk/src/smlnj-lib/Reactive/OLD/test.sml

Revision 7 - (download) (annotate)
Sun Jan 18 00:59:30 1998 UTC (23 years ago) by monnier
File size: 195 byte(s)

Initial revision

use "react.sml";

local
  open React
  infix &
  infix ||
  fun prAct s = React.action (fn _ => TextIO.print s)
in
val example = ((stop() & prAct "left ") || prAct "right ") & prAct "end\n"
end;

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0