[REBOL] Polymorphic Re:(4)

Hi, Anrew, it doesn't work in the case: ifs [ false append/only copy [print] "Hi" true [print first "hello"] ] ; Lazy evaluation of multiple 'if-s. Ifs: function [Ifs [block!] /Default Case [block!]] [Block] [ while [not empty? Ifs] [ Block: do/next Ifs if

[REBOL] Polymorphic Re:(4)

Hi, I think, that a mix can easily be achieved as follows: cases-dialect: make object! [ "Dialect for do-cases" else-if: if: func [[throw] condition body [block!] ] [ system/words/if condition [body] ] else: func