7 lines
161 B
Text
7 lines
161 B
Text
|
(case my-enum
|
||
|
|
(string (do-string my-enum))
|
||
|
|
(bool (do-bool my-enum))
|
||
|
|
(proc (my-enum))
|
||
|
|
(number (do-number my-enum))
|
||
|
|
(else (! "No match found in case")))
|