From 11f07576cb832ce24f8d3f64b7dcca2158ace252 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 15 Sep 2011 09:24:29 -0600 Subject: [PATCH] Check that functional-syntax variables are initialized. * lisp/ob.el (org-babel-get-src-block-info): Check that functional-syntax variables are initialized. --- lisp/ob.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 88b3a0a61..e8bce1a7e 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -220,8 +220,15 @@ Returns a list (when (match-string 6) (setf (nth 2 info) ;; merge functional-syntax vars and header-args (org-babel-merge-params - (mapcar (lambda (ref) (cons :var ref)) - (org-babel-ref-split-args (match-string 6))) + (mapcar + (lambda (ref) (cons :var ref)) + (mapcar + (lambda (var) ;; check that each variable is initialized + (unless (string-match ".+=.+" var) + (error + "variable \"%s\"%s must be assigned a default value" + var (if name (format " in block \"%s\"" name) "")))) + (org-babel-ref-split-args (match-string 6)))) (nth 2 info)))))) ;; inline source block (when (org-babel-get-inline-src-block-matches) -- 2.11.4.GIT