adamc@766: fun printer () = Test.foo
adamc@766:
adamc@765: fun effect () =
adamc@765: Test.print;
adamc@766: return
adamc@766:
adamc@766:
adamc@766:
adamc@765:
adamc@771: fun xact () =
adamc@771: Test.transactional;
adamc@771: return
adamc@771: All good.
adamc@771:
adamc@771:
adamc@771: fun xact2 () =
adamc@771: Test.transactional;
adamc@771: error Failure;
adamc@771: return
adamc@771: All gooder.
adamc@771:
adamc@771:
adamc@764: fun main () = return
adamc@764: {[Test.out (Test.frob (Test.create "Hello ") "world!")]}
adamc@765:
adamc@771:
adamc@771:
adamc@764: