src/expand.clj

@@ -232,6 +232,14 @@
           (for [x [condition consequent alternative]]
             (expand x env store-atom)))))
 
+(defmethod expand-primitive 'let-syntax
+  [stx _ env store-atom]
+  (let [_ (s/conform ::prim-let-syntax stx)]))
+
+(defmethod expand-primitive 'syntax-rules
+  [stx _ env store-atom]
+  (let [_ (s/conform ::prim-syntax-rules stx)]))
+
 (defn expand
   ([stx]
    (let [scopeholder (scm/new-scopeholder)