 		(push newcar result)
 		(push (ledger-auto-parse-date-descriptor newcar) result)) )
 	  (setq tree (cdr tree)))
+
+	;; tie up all the clauses in a big or and lambda
 	`(lambda (date) 
 	   ,(nconc (list 'or) (nreverse result) tree)))))
 

  (ledger-auto-compile-constraints 
   (ledger-auto-split-constraints descriptor)))

(provide 'ldg-auto)

;;; ldg-auto.el ends here

;; use (fset 'VARNAME (macro args)) to put the macro definition in the
;; function slot of the symbol VARNAME.  Then use VARNAME as the
;; function without have to use funcall.

(defgroup ledger-auto nil
  "Support for automatically recommendation transactions."
    :group 'ledger)

(defcustom ledger-auto-look-forward 14
  "Number of days auto look forward to recommend transactions"
  :type 'integer
  :group 'ledger-auto)


(defsubst between (val low high)
  (and (>= val low) (<= val high)))
