mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
failed to improve macros :/
This commit is contained in:
parent
2d2ccad935
commit
e52a11ad1b
9
examples/macron.carp
Normal file
9
examples/macron.carp
Normal file
@ -0,0 +1,9 @@
|
||||
|
||||
(def a 10)
|
||||
|
||||
(defmacro m0 (blah)
|
||||
(list '+ 1 blah))
|
||||
|
||||
(defmacro m1 (blah)
|
||||
`(+ 1 ~blah))
|
||||
|
@ -41,9 +41,26 @@
|
||||
))
|
||||
|
||||
(defmacro quasiquote (form)
|
||||
;;(list 'quote )
|
||||
(quasiquote-internal form)
|
||||
)
|
||||
(quasiquote-internal form))
|
||||
|
||||
;; (defn quasiquote-internal [form]
|
||||
;; (do
|
||||
;; (println (str "form: " form))
|
||||
;; (if (list? form)
|
||||
;; (match form
|
||||
;; ('dequote x) x
|
||||
;; _ (map quasiquote-internal form))
|
||||
;; form)))
|
||||
|
||||
;; (defn replace-dequotes [form]
|
||||
;; (match form
|
||||
;; () ()
|
||||
;; ('dequote x) x
|
||||
;; (x ... xs) (cons (replace-dequotes x) (replace-dequotes xs))
|
||||
;; x x))
|
||||
|
||||
;; (defmacro quasiquote (form)
|
||||
;; (list 'quote (map replace-dequotes form)))
|
||||
|
||||
(defn assert-approx-eq (target x)
|
||||
(do
|
||||
|
Loading…
Reference in New Issue
Block a user