6 lines
161 B
Text
6 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")))
|