removed unnecessary variable

This commit is contained in:
2025-05-12 00:04:03 -04:00
parent 3d0c20a5dd
commit 9c84a8153a

View File

@@ -25,13 +25,11 @@
(defun pt-build (source &rest params) (defun pt-build (source &rest params)
"Build a pivot table "Build a pivot table
TODO: more documentation" TODO: more documentation"
(let* ((rows (plist-get params :rows)) (let* ((rows (plist-get params :rows))
(cols (plist-get params :cols)) (cols (plist-get params :cols))
(vals (plist-get params :vals)) (vals (plist-get params :vals))
(col-index (pt-get-columns source)) (col-index (pt-get-columns source))
(index (pt-column-names source))
src-cols src-cols
(src-body (pt-get-body source)) (src-body (pt-get-body source))
(buckets (make-hash-table))) (buckets (make-hash-table)))