[O] [babel] Lisp error: (void-variable params)

[Sebastien Vauban]

Hello,

After this morning's update [1], I get the following backtrace when executing 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 
(lambda (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-tail-- 
... ... ...))) 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) (function (lambda 
... ...)))))) (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-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) 
(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 (mapcar ... ...)) ":") expanded)) (hash (sha1 
it))) (if (with-no-warnings (called-interactively-p (quote interactive))) 
(progn (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)) 
(function (lambda (a b) (string< (car a) (car b))))))) (let* ((rm (function 
(lambda (lst) (progn (let ... ...)) lst))) (norm (function (lambda (arg) (let 
(...) (if ... ...))))) (lang (nth 0 info)) (params (let* ((c (nthcdr 2 info))) 
(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-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) (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-interactively-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") 
(:result-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-args:" 
lang))) (heading (nth 4 (condition-case nil (progn (org-heading-components)) 
(error nil)))) (export-buffer (current-buffer)) (original-buffer 
(org-babel-exp-get-export-buffer)) results) (if original-buffer (progn 
(set-buffer original-buffer) (save-restriction (if heading (progn 
(condition-case nil ... ...))) (setq results (let* (...) (setcar c ...)))) 
(set-buffer export-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-args:" 
lang))) (heading (nth 4 (condition-case nil (progn ...) (error nil)))) 
(export-buffer (current-buffer)) (original-buffer 
(org-babel-exp-get-export-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" 
"results"))) (progn (let* ((lang-headers (intern (concat 
"org-babel-default-header-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-restriction (if heading ...) (setq results 
...)) (set-buffer export-buffer) results))) (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-get-export-buffer)) results) (if original-buffer (progn 
(set-buffer original-buffer) (save-restriction ... ...) (set-buffer 
export-buffer) results))) (setq 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-current-line)) (lang (nth 0 info)) (raw-params (nth 2 info)) hash) (if 
noninteractive nil (message "org-babel-exp process %s at line %d..." lang 
line)) (if info (progn (if (member (cdr (assoc :exports (nth 2 info))) (quote 
("both" "results"))) (progn (let* ((lang-headers ...) (heading ...) 
(export-buffer ...) (original-buffer ...) results) (if original-buffer (progn 
... ... ... results))) (setq hash (org-babel-sha1-hash info)))) 
(org-babel-exp-do-export 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)) hash) 
(if noninteractive nil (message "org-babel-exp process %s at line %d..." lang 
line)) (if info (progn (if (member (cdr (assoc :exports ...)) (quote ("both" 
"results"))) (progn (let* (... ... ... ... results) (if original-buffer ...)) 
(setq hash (org-babel-sha1-hash info)))) (org-babel-exp-do-export 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).

-- 
Sebastien Vauban