In guile-2.0.11 the following appears in sxml/xpath.scm:
(define (node-typeof? crit)
(lambda (node)
(case crit
((*) (and (pair? node) (not (memq (car node) '(@ *PI*)))))
((*any*) #t)
((*text*) (string? node))
(else
(and (pair? node) (eq? crit (car node))))
)))Would it be more efficient to swap the "(lambda (node)" and "(case crit" forms? Matt
