Skip to content

Commit

Permalink
add inline for get and fix rseq inline
Browse files Browse the repository at this point in the history
  • Loading branch information
cgrand committed Jun 26, 2024
1 parent d24e607 commit ae96b58
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion clj/src/cljd/core.cljd
Original file line number Diff line number Diff line change
Expand Up @@ -1500,6 +1500,8 @@

(defn get
"Returns the value mapped to key, not-found or nil if key not present."
{:inline (call-to `-lookup)
:inline-arities #{2 3}}
([map key]
(-lookup map key))
([map key not-found]
Expand Down Expand Up @@ -1637,9 +1639,9 @@
(defn rseq
"Returns, in constant time, a seq of the items in rev (which
can be a vector or sorted-map), in reverse order. If rev is empty returns nil"
[rev]
{:inline (call-to `-rseq)
:inline-arities #{1}}
[rev]
(-rseq rev))

(defprotocol ISorted
Expand Down

0 comments on commit ae96b58

Please sign in to comment.