In an effort to join the current millennium, i have started to play w/ Guile 2.x's SXML facilities. Good stuff! I've run into a problem, however, and hope i can get help resolving it here.
The following small program attempts to use ‘sxml-match’ to remove an unwanted attribute from a (well-formed) SXML snippet.
#!/usr/bin/guile -s
!#
(use-modules
(sxml match))
(define (unbogus x)
(sxml-match x
((a (@ . ,attrs) ...)
`(a (@ ,@(delete '(shape "rect") attrs)) ...))))
(define bad '(a (@ (shape "rect") (href "foo.html")) "kid"))
(pk bad)
(pk (unbogus bad))
;; expect: (a (@ (href "foo.html")) "kid")
When i run it, i see it fail w/ error message:
sxml/sxml-match.ss:342:31: Throw to key `sxml-match-error'
with args `(#f "bad pattern syntax (symbol not allowed
in this context)" [...]
(output folded and truncated). To my untrained eye, the form
looks similar to the examples in Info node ‘(guile) sxml-match’
but evidently i am missing something. What?
--
Thien-Thi Nguyen -----------------------------------------------
(defun responsep (query) ; (2021) Software Libero
(pcase (context query) ; = Dissenso Etico
(`(technical ,ml) (correctp ml))
...)) 748E A0E8 1CB8 A748 9BFA
--------------------------------------- 6CE4 6703 2224 4C80 7502
signature.asc
Description: PGP signature
