Bug in hobbit?

[Rob Browning]

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