cyclone/match-test.scm
2018-01-24 12:55:58 -05:00

8 lines
183 B
Scheme

(import
(scheme base)
(scheme write)
(match-test-lib)
)
(display (match (list 1 2 3) ((a b c) b)) )(newline)
(display (match (list 1 2 3) (`(1 ,b ,c) (list b c))) )(newline)