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:
1: hello