sxpath-helper.scm

; if-sxpath , if-car-sxpath が名前空間を渡せないので作った補助
(define-module sxpath-helper (extend sxml.sxpath)
  (use komono-base)
  (export if-car-sxpath if-sxpath )
)
(select-module sxpath-helper)

(define (if-sxpath xpath :optional (ns '()))
  (if-listfn$ (sxpath xpath ns) ) )

(define (if-car-sxpath xpath :optional (ns '()))
  (if-car-listfn$ (sxpath xpath ns) ) )