yogsototh/org-mode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove use of map at runtime

Browse source 
* lisp/ob.el (org-babel-edit-distance): Remove use of map at runtime.
This commit is contained in:
Eric Schulte 2012-07-25 09:13:08 -06:00
parent 63b5f8f2e8
commit 64418e2920
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ob.el
View file

@ -616,8 +616,8 @@ arguments and pop open the results in a preview buffer."
"Return the edit (levenshtein) distance between strings S1 S2."
(let* ((l1 (length s1))
(l2 (length s2))
(dist (map 'vector (lambda (_) (make-vector (1+ l2) nil))
(number-sequence 1 (1+ l1)))))
(dist (vconcat (mapcar (lambda (_) (make-vector (1+ l2) nil))
(number-sequence 1 (1+ l1))))))
(org-flet ((in (i j) (aref (aref dist i) j))
(mmin (&rest lst) (apply #'min (remove nil lst))))
(setf (aref (aref dist 0) 0) 0)