Skip to content

Commit

Permalink
Merge pull request #54 from pfeodrippe/patch-1
Browse files Browse the repository at this point in the history
Declare `emit-dot` before `emit-new`
  • Loading branch information
cgrand authored May 4, 2022
2 parents c7f91b3 + 9581712 commit c67e684
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions clj/src/cljd/compiler.cljc
Original file line number Diff line number Diff line change
Expand Up @@ -1385,9 +1385,6 @@
:else (throw (ex-info (str "Can't emit collection " (pr-str coll)) {:form coll})))
env))))

(defn emit-new [[_ class & args :as form] env]
(emit-dot (with-meta (list* '. class (name class) args) (meta form))))

(defn- fake-member-lookup [type! member n]
(case (:canon-qname type!)
dc.bool
Expand Down Expand Up @@ -1478,6 +1475,9 @@
(cond->> expr
(seq bindings) (list 'dart/let bindings)))))

(defn emit-new [[_ class & args :as form] env]
(emit-dot (with-meta (list* '. class (name class) args) (meta form))))

(defn emit-set! [[_ target expr] env]
(let [target (macroexpand env target)]
(cond
Expand Down

0 comments on commit c67e684

Please sign in to comment.