tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ob-lob: do not use cl at runtime 

* lisp/ob-lob.el (org-babel-lob-execute): Do not use defun subseq from
  cl at runtime.  Replace concatenation of sub-sequences by splicing
  the modified params list into a copy of info (pre-must info be
  preserved).
This commit is contained in:
Achim Gratz 2014-01-25 08:53:33 +01:00
parent 078329f813
commit 9973fbc347
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ob-lob.el
View File

@ -147,13 +147,14 @@ if so then run the appropriate source block from the Library."
;; Do *not* pre-process params for call line
;; hash evaluation, since for a call line :var
;; extension *is* execution.
(let ((params (nth 2 pre-info)))
(append (subseq pre-info 0 2)
(list
(cons
(cons :c-var (cdr (assoc :var params)))
(assq-delete-all :var (copy-tree params))))
(subseq pre-info 3))))))
(let* ((params (nth 2 pre-info))
(sha1-nth2 (list
(cons
(cons :c-var (cdr (assoc :var params)))
(assq-delete-all :var (copy-tree params)))))
(sha1-info (copy-tree pre-info)))
(prog1 sha1-info
(setcar (cddr sha1-info) sha1-nth2))))))
(old-hash (when cache-p (org-babel-current-result-hash pre-info)))
(org-babel-current-src-block-location (point-marker)))
(if (and cache-p (equal new-hash old-hash))