Index: view-column.scm
===================================================================
--- view-column.scm	(revision 14542)
+++ view-column.scm	(working copy)
@@ -37,6 +37,21 @@
 (gnc:module-load "gnucash/report/report-system" 0)
 (gnc:module-load "gnucash/gnome-utils" 0) ;for gnc:html-build-url
 
+(define 
+  (make-report-info
+    report-id ; gnc:make-report(...)
+    rowspan   ; number?
+    colspan   ; number?
+    callback  ; #f or procedure? "maybe options-setter for report-id"
+  )
+  (list
+    report-id
+    rowspan
+    colspan
+    callback
+  )
+)
+
 (define (make-options)
   (let* ((options (gnc:new-options))
 	 (opt-register
@@ -46,7 +61,11 @@
     ;; options editor.
     (opt-register 
      (gnc:make-internal-option
-      "__general" "report-list" '()))
+      "__general" 
+      "report-list" 
+      '() ;list of make-report-info(...)
+     )
+    )
     
     (opt-register
      (gnc:make-number-range-option 
@@ -87,7 +106,9 @@
     ;; pings the parent 
     (let ((new-reports '()))
       (for-each 
-       (lambda (report-info)
+       (lambda 
+         (report-info ; make-report-info(...)
+         )
 	 (let ((child (car report-info))
 	       (rowspan (cadr report-info))
 	       (colspan (caddr report-info))
@@ -98,7 +119,7 @@
 		       (make-child-options-callback
 			report (gnc:find-report child)))
 		 (set! report-info 
-		       (list child rowspan colspan callback))))
+		       (make-report-info child rowspan colspan callback))))
 	   (set! new-reports (cons report-info new-reports))))
        reports)
       (gnc:option-set-value report-opt (reverse new-reports)))
@@ -107,7 +128,9 @@
     ;; report's cached text if possible.  For the moment, we'll have
     ;; to rerun every report, every time... FIXME
     (for-each
-     (lambda (report-info)
+     (lambda 
+       (report-info ;make-report-info(...)
+       )
        ;; run the report renderer, pick out the document style table
        ;; and objects from the returned document, then make a new
        ;; HTML table cell with those objects as content and append
@@ -118,7 +141,6 @@
        (let* ((subreport (gnc:find-report (car report-info)))
 	      (colspan (cadr report-info))
 	      (rowspan (caddr report-info))
-	      (opt-callback (cadddr report-info))
 	      (toplevel-cell (gnc:make-html-table-cell/size rowspan colspan))
 	      (report-table (gnc:make-html-table))
 	      (contents-cell (gnc:make-html-table-cell)))
@@ -226,12 +248,14 @@
 	 (reports (gnc:option-value report-opt))
 	 (new-reports '()))
     (for-each 
-     (lambda (report-info)
+     (lambda 
+       (report-info ; make-report-info(...)
+       )
        (let ((rep (car report-info))
 	     (rowspan (cadr report-info))
 	     (colspan (caddr report-info)))
 	 (set! report-info 
-	       (list rep rowspan colspan #f))
+	       (make-report-info rep rowspan colspan #f))
 	 (set! new-reports (cons report-info new-reports))))
      reports)
     (gnc:option-set-value report-opt (reverse new-reports))))
