Mercurial > repos > tabletprog
view modules/option.tp @ 356:3b023e5a0b42
llcompile almost working well enough for fib sample
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 15 Apr 2015 23:03:24 -0700 |
parents | fd4e0bf5bd9f |
children |
line wrap: on
line source
{ _none <- #{ value:none <- :ifval :ifnone { ifnone: } value <- :ifval { self } value? <- { false } none? <- { true } } #{ value <- :v { #{ value:none <- :ifval :ifnone { ifval: v } value <- :ifval { option value: (ifval: v) } value? <- { true } none? <- { false } } } none <- { _none } } }