From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [babel] Lisp error: (void-variable params) Date: Tue, 10 Dec 2013 10:47:48 +0100 Message-ID: <86mwk9ca0r.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, After this morning's update [1], I get the following backtrace when executi= ng R code. --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (void-variable params) (org-babel-merge-params (nth 2 info) params) (sort (org-babel-merge-params (nth 2 info) params) (function (lambda (el1= el2) (string< (symbol-name (car el1)) (symbol-name (car el2)))))) (setcar c (sort (org-babel-merge-params (nth 2 info) params) (function (l= ambda (el1 el2) (string< (symbol-name (car el1)) (symbol-name (car el2)))))= )) (let* ((c (nthcdr 2 info))) (setcar c (sort (org-babel-merge-params (nth = 2 info) params) (function (lambda (el1 el2) (string< (symbol-name (car el1)= ) (symbol-name (car el2)))))))) (let* ((rm (function (lambda (lst) (progn (let (... p) (while --dolist-ta= il-- ... ... ...))) lst))) (norm (function (lambda (arg) (let ((v ...)) (if= (and v ...) (progn ...)))))) (lang (nth 0 info)) (params (let* ((c (nthcdr= 2 info))) (setcar c (sort (org-babel-merge-params (nth 2 info) params) (fu= nction (lambda ... ...)))))) (body (let* ((c (nthcdr 1 info))) (setcar c (i= f (org-babel-noweb-p params :eval) (org-babel-expand-noweb-references info)= (nth 1 info))))) (expand-cmd (intern (concat "org-babel-expand-body:" lang= ))) (assignments-cmd (intern (concat "org-babel-variable-assignments:" lang= ))) (expanded (if (fboundp expand-cmd) (funcall expand-cmd body params) (or= g-babel-expand-body:generic body params (and (fboundp assignments-cmd) (fun= call assignments-cmd params)))))) (let* ((it (format "%s-%s" (mapconcat (fu= nction identity) (delq nil (mapcar ... ...)) ":") expanded)) (hash (sha1 it= ))) (if (with-no-warnings (called-interactively-p (quote interactive))) (pr= ogn (message hash))) hash)) (let ((print-level nil) (info (or info (org-babel-get-src-block-info)))) = (let* ((c (nthcdr 2 info))) (setcar c (sort (copy-sequence (nth 2 info)) (f= unction (lambda (a b) (string< (car a) (car b))))))) (let* ((rm (function (= lambda (lst) (progn (let ... ...)) lst))) (norm (function (lambda (arg) (le= t (...) (if ... ...))))) (lang (nth 0 info)) (params (let* ((c (nthcdr 2 in= fo))) (setcar c (sort (org-babel-merge-params ... params) (function ...))))= ) (body (let* ((c (nthcdr 1 info))) (setcar c (if (org-babel-noweb-p params= :eval) (org-babel-expand-noweb-references info) (nth 1 info))))) (expand-c= md (intern (concat "org-babel-expand-body:" lang))) (assignments-cmd (inter= n (concat "org-babel-variable-assignments:" lang))) (expanded (if (fboundp = expand-cmd) (funcall expand-cmd body params) (org-babel-expand-body:generic= body params (and (fboundp assignments-cmd) (funcall assignments-cmd params= )))))) (let* ((it (format "%s-%s" (mapconcat (function identity) (delq nil = ...) ":") expanded)) (hash (sha1 it))) (if (with-no-warnings (called-intera= ctively-p (quote interactive))) (progn (message hash))) hash))) org-babel-sha1-hash(("R" "<... my R code ...>" ((:cache . "no") (:colname= -names) (:comments . "") (:eval . "never") (:exports . "results") (:hlines = . "no") (:noweb . "yes") (:padline . "") (:result-params "replace") (:resul= t-type . value) (:results . "replace") (:rowname-names) (:session . "none")= (:shebang . "") (:tangle . "no")) "" "boxplot-plan" 0 1823)) (setq hash (org-babel-sha1-hash info)) (progn (let* ((lang-headers (intern (concat "org-babel-default-header-arg= s:" lang))) (heading (nth 4 (condition-case nil (progn (org-heading-compone= nts)) (error nil)))) (export-buffer (current-buffer)) (original-buffer (org= -babel-exp-get-export-buffer)) results) (if original-buffer (progn (set-buf= fer original-buffer) (save-restriction (if heading (progn (condition-case n= il ... ...))) (setq results (let* (...) (setcar c ...)))) (set-buffer expor= t-buffer) results))) (setq hash (org-babel-sha1-hash info))) (if (member (cdr (assoc :exports (nth 2 info))) (quote ("both" "results")= )) (progn (let* ((lang-headers (intern (concat "org-babel-default-header-ar= gs:" lang))) (heading (nth 4 (condition-case nil (progn ...) (error nil))))= (export-buffer (current-buffer)) (original-buffer (org-babel-exp-get-expor= t-buffer)) results) (if original-buffer (progn (set-buffer original-buffer)= (save-restriction (if heading (progn ...)) (setq results (let* ... ...))) = (set-buffer export-buffer) results))) (setq hash (org-babel-sha1-hash info)= ))) (progn (if (member (cdr (assoc :exports (nth 2 info))) (quote ("both" "re= sults"))) (progn (let* ((lang-headers (intern (concat "org-babel-default-he= ader-args:" lang))) (heading (nth 4 (condition-case nil ... ...))) (export-= buffer (current-buffer)) (original-buffer (org-babel-exp-get-export-buffer)= ) results) (if original-buffer (progn (set-buffer original-buffer) (save-re= striction (if heading ...) (setq results ...)) (set-buffer export-buffer) r= esults))) (setq hash (org-babel-sha1-hash info)))) (org-babel-exp-do-export= info (quote block) hash)) (if info (progn (if (member (cdr (assoc :exports (nth 2 info))) (quote ("= both" "results"))) (progn (let* ((lang-headers (intern ...)) (heading (nth = 4 ...)) (export-buffer (current-buffer)) (original-buffer (org-babel-exp-ge= t-export-buffer)) results) (if original-buffer (progn (set-buffer original-= buffer) (save-restriction ... ...) (set-buffer export-buffer) results))) (s= etq hash (org-babel-sha1-hash info)))) (org-babel-exp-do-export info (quote= block) hash))) (let* ((info (org-babel-get-src-block-info (quote light))) (line (org-cur= rent-line)) (lang (nth 0 info)) (raw-params (nth 2 info)) hash) (if noninte= ractive nil (message "org-babel-exp process %s at line %d..." lang line)) (= if info (progn (if (member (cdr (assoc :exports (nth 2 info))) (quote ("bot= h" "results"))) (progn (let* ((lang-headers ...) (heading ...) (export-buff= er ...) (original-buffer ...) results) (if original-buffer (progn ... ... .= .. results))) (setq hash (org-babel-sha1-hash info)))) (org-babel-exp-do-ex= port info (quote block) hash)))) (save-excursion (let* ((info (org-babel-get-src-block-info (quote light))= ) (line (org-current-line)) (lang (nth 0 info)) (raw-params (nth 2 info)) h= ash) (if noninteractive nil (message "org-babel-exp process %s at line %d..= ." lang line)) (if info (progn (if (member (cdr (assoc :exports ...)) (quot= e ("both" "results"))) (progn (let* (... ... ... ... results) (if original-= buffer ...)) (setq hash (org-babel-sha1-hash info)))) (org-babel-exp-do-exp= ort info (quote block) hash))))) org-babel-exp-src-block(("R")) --8<---------------cut here---------------end--------------->8--- Best regards, Seb [1] Org-mode version 8.2.3c (release_8.2.3c-344-ge6a6fe). --=20 Sebastien Vauban