Need cur to be defined at compile and run time.

funkenblatt · Nov 9, 2012 · 5f0f28a · 5f0f28a
1 parent 51bb999
commit 5f0f28a
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/combinators.el b/combinators.el
@@ -7,10 +7,11 @@
 
 (require 'cl)
 
-(defun cur (f &rest args)
-  "Specialize a function on its first few arguments."
-  (lambda (&rest more-args)
-    (apply f (append args more-args))))
+(eval-and-compile
+  (defun cur (f &rest args)
+    "Specialize a function on its first few arguments."
+    (lambda (&rest more-args)
+      (apply f (append args more-args)))))
 
 (defun comp (&rest funcs)
   "Compose functions together.  Function on the left