enforce lit-word! param

gregg.irwin (Gregg Irwin) — Sat, 16 Dec 2006 03:15:51 GMT

To enforce passing a lit-word! param, you need to make the param a get-word!, so it isn't evaluated when the func is called. This won't work if you're dynamically creating the param of course.



incr: func [

    {Increment a value by 1.}

    :word [lit-word!]

    /by {Change by this amount}     ; /skip ?

        value

][

    set word add get word any [value 1]

]





;>> a: 0

;== 0

;>> incr a

;** Script Error: incr expected word argument of type: ;lit-word

;** Near: incr a

;>> incr 'a

;== 1

DZone Snippets: get-word code

enforce lit-word! param