mark some math functions as direct

Fixes #24
tromey · Sep 16, 2017 · 5f9d0c4 · 5f9d0c4
1 parent 5ce4c94
commit 5f9d0c4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/elcomp/props.el b/elcomp/props.el
@@ -99,10 +99,10 @@ things, so that advice continues to work."
 		      ffloor fceiling ftruncate fround
 		      sin cos tan asin acos atan exp log
 		      sqrt))
-  (elcomp-declare func :elcomp-const t :elcomp-type 'float))
+  (elcomp-declare func :elcomp-const t :elcomp-type 'float :elcomp-direct t))
 
 (dolist (func '(lsh ash logand logior logxor lognot byteorder sxhash length))
-  (elcomp-declare func :elcomp-const t :elcomp-type 'integer))
+  (elcomp-declare func :elcomp-const t :elcomp-type 'integer :elcomp-direct t))
 
 (elcomp-declare 'cons :elcomp-type 'cons)
 (elcomp-declare 'list :elcomp-type 'list)