Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 7 - (download) (annotate)
Sun Jan 18 00:59:30 1998 UTC (23 years, 10 months ago) by monnier
File size: 195 byte(s)
Initial revision
use "react.sml";

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

ViewVC Help
Powered by ViewVC 1.0.0