DONE Fix nested evaluation

and commenting out debugging statements
This commit is contained in:
Eric Schulte 2009-07-22 16:05:13 -06:00
parent 66faa937f8
commit 34cf22bdaa
2 changed files with 5 additions and 5 deletions

View File

@ -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))

View File

@ -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).