org-table debugging formula - error

[Joe Corneli <holtzermann17@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1616 bytes --]

Hello,

I got an error when debugging the behaviour of a formula.

You'll need:

(setq org-table-formula-debug t)

Then with any luck this should allow you to reproduce the error: C-c C-c to run formula.

| Task                  | Estimated Effort |
|-----------------------+------------------|
| INTRODUCTION          | 9:30             |
|-----------------------+------------------|
| BACKGROUND            |                  |
|-----------------------+------------------|
| FOO WORKFLOW          |                  |
|-----------------------+------------------|
| BAR WORKFLOW          |                  |
|-----------------------+------------------|
| BAZ WORKFLOW          |                  |
|-----------------------+------------------|
| ADDITIONAL WORKFLOWS  | 1d 4h 0min       |
|-----------------------+------------------|
| FINDINGS              |                  |
|-----------------------+------------------|
| ADDITIONAL ANALYSIS   | 24:00            |
|-----------------------+------------------|
| DISCUSSION            |                  |
|-----------------------+------------------|
| BIBLIOGRAPHY          |                  |
|-----------------------+------------------|
| Appendix: Status      |                  |
| TOTAL WORKDAYS NEEDED | 5d 5h 30min      |
#+TBLFM: @>$2='(org-duration-from-minutes (apply '+ (map 'list 'org-duration-to-minutes (list @I+1$2 @II+1$2 @III+1$2 @IIII+1$2 @IIIII+1$2 @IIIIII+1$2 @IIIIIII+1$2 @IIIIIIII+1$2))))

I've attached a patch that fixes the problem for me.

I'm on Org mode version 9.1.14 (release_9.1.14-974-ga85ba9 @ /Users/joe/org-mode/lisp/)

Joe


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: table_gives_error.diff --]
[-- Type: text/x-patch, Size: 530 bytes --]

diff --git a/lisp/org-table.el b/lisp/org-table.el
index 8eb38ef68..80de97d21 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -2953,7 +2953,7 @@ $xyz->  %s
 $1->    %s\n" orig formula form0 form))
 	    (if (consp ev)
 		(princ (format "        %s^\nError:  %s"
-			       (make-string (car ev) ?\-) (nth 1 ev)))
+			       (make-string (floor (car ev)) ?\-) (nth 1 ev)))
 	      (princ (format "Result: %s\nFormat: %s\nFinal:  %s"
 			     ev (or fmt "NONE")
 			     (if fmt (format fmt (string-to-number ev)) ev)))))