Merge pull request #210 from Wilfred/car_opcode_with_first_item

Ensure that -first-item is as fast as car
9 years ago · 98e819e407
parent 958e3fb62f 75cde71040
commit 98e819e407
1 changed files with 5 additions and 0 deletions
--- a/dash.el
+++ b/dash.el
@ -578,6 +578,11 @@ Alias: `-any'"

 \(fn LIST)")

+;; Ensure that calls to `-first-item' are compiled to a single opcode,
+;; just like `car'.
+(put '-first-item 'byte-opcode 'byte-car)
+(put '-first-item 'byte-compile 'byte-compile-one-arg)
+
 ;; TODO: emacs23 support, when dropped remove the condition
 (eval-when-compile
  (require 'cl)