carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-12 04:58:18 +03:00
Code Issues Projects Releases Wiki Activity

need a good idea for unquote splicing

Browse Source
This commit is contained in:
Erik Svedäng 2016-03-14 15:07:12 +01:00
parent 66eddbd9e7
commit 4f26f52ca2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/core.carp
View File

@ -30,9 +30,11 @@
(defn quasiquote-internal [form]
(match form
('dequote x) x
;; (x ... xs) (match x
;; ('dequote-splicing inner-x) (concat (quasiquote-internal (eval inner-x)) (quasiquote-internal xs))
;; _ (cons (quasiquote-internal x) (quasiquote-internal xs)))
x (if (list? x)
(cons 'list (map quasiquote-internal x))
(list 'quote x))