RE: XML encoding from a DSSSL stylesheets?

["Pawson, David" <DPawson@xxxxxxxxxxx>]

 Stephane Bortzmeyer wrote:

>The great thing about DSSSL is its portability :-( "assoc" is 
>not known by 
>Jade 1.2.

;;     ISO/IEC 10179 Procedures
;;     Standard Procedures [8.5]
;;     assoc
;;  (assoc obj alist)
;; Returns the pair from the alist associative list that has obj as its car,
otherwise returns #f if no such pair exists.
(define (assoc obj alist)
  ;; Given an associative list, returns the pair that has obj as a car
  ;; or #f if no such pair exists
  ;; (("a" "b") ("c" "d")), "a" => ("a" "b")
  (let loop ((al alist))
    (if (null? al)
        #f
        (if (equal? obj (car (car al)))
            (car al)
            (loop (cdr al))))))

they are (mostly) in the dsssl procedures library.
Regards, DaveP


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist