testeither   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/algebraic_data_types.xtm

Implementation

(bind-func testeither:[Either{i64,String*}*,i1]*
  (lambda (choice)
    (if choice
        (Left 100)
        (Right (Str "100")))))


Back to Index