diff options
| author | Achim Gratz <Stromeko@Stromeko.DE> | 2014-01-25 08:53:33 +0100 |
|---|---|---|
| committer | Achim Gratz <Stromeko@Stromeko.DE> | 2014-03-25 18:59:59 +0100 |
| commit | 9973fbc347f14542fc0547233df9862267eab3f9 (patch) | |
| tree | 98fcc80364f84f3e406f9423113db123fd745f47 | |
| parent | 078329f8132fec9498f8aa92b319f581f5f905cb (diff) | |
| download | org-mode-9973fbc347f14542fc0547233df9862267eab3f9.tar.gz | |
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).
| -rw-r--r-- | lisp/ob-lob.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index c93198a..6480468 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -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)) |