src/expand.clj

@@ -18,7 +18,7 @@
      define-syntax begin})
 
 (def builtins
-  '#{car cdr write display newline cons list})
+  '#{+ * / - car cdr write display newline cons list})
 
 (s/def ::binding
   #(match %
@@ -383,11 +383,14 @@
   (match template
     [:var x] (let [x* (offer-scopes x scopes)]
                (match (lookup x* env symtable)
-                 [:syntax [:ellipsis _]] (todo "ellipsis")
                  [:syntax syn] syn
                  :else x*))
     [:lit x] x
-    [:list xs] (map #(transcribe % env symtable scopes) xs)))
+    [:list xs]
+    (mapcat #(match %
+               [:ellipsis _] (todo "점점점")
+               :else [(transcribe % env symtable scopes)])
+            xs)))
 
 (defn resolve-template [template scopes]
   (clojure.walk/postwalk