variable rename
This commit is contained in:
@@ -40,10 +40,10 @@ TODO: more documentation"
|
||||
(dolist (record src-body)
|
||||
(pt--process-record record source-cols buckets))))
|
||||
|
||||
(defun pt-get-columns (source)
|
||||
(defun pt-get-columns (table)
|
||||
"Extract the column names from a table"
|
||||
(let (result)
|
||||
(dolist (row source)
|
||||
(dolist (row table)
|
||||
(when (and (listp row) (equal (car row) "!"))
|
||||
(let ((n 2))
|
||||
(dolist (cell (cdr row))
|
||||
|
||||
Reference in New Issue
Block a user