From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
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: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=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