From 8e4b52235c8f31f6d254b7dd9f22bb615c9e912c Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Sun, 1 Jun 2014 14:09:39 +0200 Subject: [PATCH] ob-J: Do not use cl or cl-lib functions at runtime * lisp/ob-J.el: Do not use `second', `third', `fourth', `minusp' and `plusp'. --- lisp/ob-J.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/ob-J.el b/lisp/ob-J.el index 13ea3fe7b..1394a0563 100644 --- a/lisp/ob-J.el +++ b/lisp/ob-J.el @@ -65,11 +65,11 @@ PARAMS are given by org-babel. This function is called by `org-babel-execute-src-block'" (message "executing J source code block") (let* ((processed-params (org-babel-process-params params)) - (sessionp (cdr (assoc :session params))) + (sessionp (nth 1 (assoc :session params))) (session (org-babel-j-initiate-session sessionp)) - (vars (second processed-params)) - (result-params (third processed-params)) - (result-type (fourth processed-params)) + (vars (nth 2 processed-params)) + (result-params (nth 3 processed-params)) + (result-type (nth 4 processed-params)) (full-body (org-babel-expand-body:J body params processed-params)) (tmp-script-file (org-babel-temp-file "J-src"))) @@ -141,10 +141,10 @@ Don't trust first line." (a (obj-get-string-alignment x)) (lines (split-string x "\n" t)) b) - (cond ((minusp a) + (cond ((< a 0) (setq b (obj-match-second-space-right (nth 0 lines))) (concat (make-string (+ a b) ? ) x)) - ((plusp a) + ((> a 0) (setq b (obj-match-second-space-left (nth 0 lines))) (concat (make-string (- a b) ? ) x)) (t x)))) -- 2.11.4.GIT