bug#19469: minor nit: (sxml xpath) node-typeof?

[Matt Wette]

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