1.2.31. test/regress/rt-1.01.31

Start felix section to test/regress/rt-1.01.31-0.flx[1 /1 ]
     1: #line 1174 "./lpsrc/flx_regress.pak"
     2: #import <flx.flxh>
     3: 
     4: union U =
     5: | A of (unit -> void)
     6: ;
     7: 
     8: proc p0 (x:U)
     9: {
    10:   match x with
    11:   | A ?f => {f;}
    12:   endmatch;
    13: }
    14: 
    15: proc p1
    16: {
    17:   print "hello"; endl;
    18: }
    19: 
    20: p0$ A the p1;
    21: 
End felix section to test/regress/rt-1.01.31-0.flx[1]
Start data section to test/regress/rt-1.01.31-0.expect[1 /1 ]
     1: hello
End data section to test/regress/rt-1.01.31-0.expect[1]