[REBOL] Re: Model hacking

From: jeff:rebol at: 22-Jun-2001 8:26

> callable?: func [
>     {finds out, if a Rebol value is callable}
>     value [any-type!]
> ] [
>     found? any [
>         any-function? get/any 'value
>         lit-word? get/any 'value
>         set-word? get/any 'value
>         lit-path? get/any 'value
>         path? get/any 'value
>         set-path? get/any 'value
>     ]
> ]

callable?: func ['v][
    parse compose [(:v)][
        lit-word! | set-word! | set-word! |
        lit-path! |   path!   | set-path!
    ]
]

;--  :-)

1 · 2 · 3 · 4 · 5 · 6 · [7] · 8 · 9 · 10 · 11 · 12 · 13 · See whole thread