Add dash prefix to epsilon variable.

master
Matus Goljer 11 years ago
parent e4689374f1
commit b88cfb780a
  1. 4
      dev/examples.el

@ -13,12 +13,12 @@
;; around differences in implementation between systems. Use the `~>' ;; around differences in implementation between systems. Use the `~>'
;; symbol instead of `=>' to test the expected and actual values with ;; symbol instead of `=>' to test the expected and actual values with
;; `approx-equal' ;; `approx-equal'
(defvar epsilon 1e-15) (defvar dash--epsilon 1e-15)
(defun approx-equal (u v) (defun approx-equal (u v)
(or (= u v) (or (= u v)
(< (/ (abs (- u v)) (< (/ (abs (- u v))
(max (abs u) (abs v))) (max (abs u) (abs v)))
epsilon))) dash--epsilon)))
(def-example-group "Maps" (def-example-group "Maps"
"Functions in this category take a transforming function, which "Functions in this category take a transforming function, which

Loading…
Cancel
Save