Code: Select all
(constant 'Type 1)
(define (check-type x)
(case
(Type (println "it is Type"))
(true (println "it is not Type"))))
(check-name 1)
(exit)
For: case
syntax: (case exp-switch (exp-1 body-1) [(exp-2 body-2) ... ])
The result of evaluating exp-switch is compared to each of the unevaluated expressions exp-1, exp-2,
I want to know Why make case expression with unevaluated?