8 lines
239 B
Text
8 lines
239 B
Text
(case (vector 'selector 1 2 3)
|
|
(['case1 x y]
|
|
(print "case: case1 " x ", " y))
|
|
(['selector x y z]
|
|
(print "case: selector " x ", " y ", " z))
|
|
(else
|
|
(print "case: i don't know")))
|
|
; ==> tuple-case: selector 1, 2, 3
|