[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Bug in hobbit?
From: |
Rob Browning |
Subject: |
Bug in hobbit? |
Date: |
16 May 2001 11:16:44 -0500 |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 |
In the code, hobbit checks for "liftable" names with this function:
(define (liftable-nameocc? name term)
(cond
((not (pair? term)) #t)
((eq? 'quote (car term)) #t)
((eq? 'lambda (car term))
(not (inside-term? name (cddr term))))
((and (memq name (cdr term))
(not (liftable-hofname? (car term))) )
#f)
(else
(all (lambda (x) (liftable-nameocc? name x)) term) )))
It's choking on the form below when it runs the "memq" test above. It
chokes because it hits the dotted lambda argument list. I'm presuming
that memq just shouldn't have been used above, but wanted to check and
see if anyone else disagrees.
(set-last-row-style!27
(lambda (table309 tag308 . rest307)
(let ((arg-list310
(cons table309
(cons (- (gnc:html-table-num-rows table309) '1)
(cons tag308 rest307)))))
(apply gnc:html-table-set-row-style! arg-list310))))
Thanks
--
Rob Browning <address@hidden> PGP=E80E0D04F521A094 532B97F5D64E3930
- Bug in hobbit?,
Rob Browning <=