From 34cf22bdaac6e38743748f7d4ca2e6e5ee402e5c Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 22 Jul 2009 16:05:13 -0600 Subject: [PATCH] DONE Fix nested evaluation and commenting out debugging statements --- lisp/org-babel-ref.el | 6 +++--- org-babel.org | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org-babel-ref.el b/lisp/org-babel-ref.el index b2f872222..6ec362c1e 100644 --- a/lisp/org-babel-ref.el +++ b/lisp/org-babel-ref.el @@ -96,12 +96,12 @@ return nil." (when (string-match "^\\(.+?\\)\(\\(.*\\)\)$" ref) (setq new-refere (match-string 1 ref)) (setq new-referent (match-string 2 ref)) - (message "new-refere=%S, new-referent=%S" new-refere new-referent) ;; debugging + ;; (message "new-refere=%S, new-referent=%S" new-refere new-referent) ;; debugging (when (> (length new-refere) 0) (if (> (length new-referent) 0) (setq args (mapcar (lambda (ref) (cons :var ref)) (org-babel-ref-split-args new-referent)))) - (message "args=%S" args) + ;; (message "args=%S" args) ;; debugging (setq ref new-refere))) (when (string-match "\\(.+\\):\\(.+\\)" ref) (find-file (match-string 1 ref)) @@ -134,7 +134,7 @@ return nil." (beginning-of-line) (if (or (= (point) (point-min)) (= (point) (point-max))) (error "reference not found")))) - (message "type=%S" type) ;; debugging + ;; (message "type=%S" type) ;; debugging (case type ('results-line (org-babel-ref-read-result)) ('table (org-babel-ref-read-table)) diff --git a/org-babel.org b/org-babel.org index 795e93189..52e7d20c8 100644 --- a/org-babel.org +++ b/org-babel.org @@ -2283,8 +2283,8 @@ plot data using 1:2 with lines (see [[* file result types][file result types]]) -* Bugs [24/36] -** STARTED Fix nested evaluation +* Bugs [25/36] +** DONE Fix nested evaluation The current parser / evaluator fails with greater levels of nested function block calls (example below).