1: #line 1558 "./lpsrc/flx_regress.pak" 2: #import <flx.flxh> 3: 4: module Foo 5: { 6: union foo = | A | B; 7: 8: fun _ctor_foo (x:int):foo => A; 9: } 10: 11: val x = Foo::foo 5; 12: 13: print$ match x with 14: | Foo::A => "a" 15: | Foo::B => "b" 16: endmatch; 17: endl;
1: a