Welcome to the CHICKEN Scheme pasting service

Strange processing of SXML attributes pasted by arthurmaciel on Sun May 31 23:53:20 2015

(use sxml-transforms)

(define test-rules 
  `((test-tag . ,(lambda (tag body)
		   (newline)
		   (display "Tag: ") (display tag)
		   (newline)
		   (display "Body: ") (display body)
		   (newline)))))


(pre-post-order* '(test-tag (@ (test-attr "a")) test-content) (append test-rules universal-conversion-rules))


=>

Tag: test-tag
Body: ((@ ((  test-attr =" ((a)) "))) test-content)
[ permalink | raw ]

no title added by andyjpb on Mon Jun 1 00:00:30 2015

(use sxml-transforms)

(define test-rules
 `((*text* . ,(lambda (tag str) str))
   (*default* . ,cons)
   (test-tag . ,(lambda (tag body)
		 (newline)
		 (display "Tag: ") (display tag)
		 (newline)
		 (display "Body: ") (display body)
		 (newline)
		 (cons tag body)))))

(pre-post-order* '(test-tag (@ (test-attr "a")) test-content) (append test-rules '()))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the language CHICKEN compiles to:
Visually impaired? Let me spell it for you (wav file) download WAV