@@ -77,12 +77,9 @@ (ul ,@(map (lambda (reply) `(li ,(lp reply))) (get-comments cur))))))) -;;XXX suspect but can't prove that this could be shorter -(define (count-comments feat) - (let ((feats (get-comments feat))) - (aif (length feats) - (apply + it (map count-comments feats)) - 0))) +(define (count-comments feat-or-reply) + (let ((comments (get-comments feat-or-reply))) + (apply + (length comments) (map count-comments comments)))) (define (get-comments parent-item) (load-children parent-item 'comments)) discuss.ss 921b024a632c8d869d863e779bcb5325e05a7ec3 Rob Hunter rob.hunter@gmail.com http://github.com/vegashacker/lawnelephant/commit/6657c855175bdd72c7b1adf122908831a7b8183a 6657c855175bdd72c7b1adf122908831a7b8183a 2009-04-03T16:31:27-07:00 2009-04-03T16:31:27-07:00 the aif was unnecessary, but otherwise was slick 0cf98c69df29e4356dc6a41414a7de46098fa412 Rob Hunter rob.hunter@gmail.com