2013-04-09 02:23:51 +02:00
|
|
|
;;;
|
|
|
|
|
;;;
|
|
|
|
|
|
|
|
|
|
(import-from hy.models.expression HyExpression)
|
|
|
|
|
(import-from hy.models.symbol HySymbol)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn test-basic-quoting []
|
2013-04-09 02:24:47 +02:00
|
|
|
(assert (= (type (quote (foo bar))) HyExpression))
|
|
|
|
|
(assert (= (type (quote foo)) HySymbol)))
|
