Ignore:
Timestamp:
07/17/09 17:31:34 (12 years ago)
Author:
Alex Shinn
Message:

using utf8 encoding of non-ASCII unicode entities

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/html-parser/trunk/html-parser.scm

    r14752 r15230  
    328328(define (get-entity entities name)
    329329  (cond
    330    ((string->number name) => (lambda (n) (string (integer->char n))))
     330   ((string->number name)
     331    => (lambda (n) (##sys#char->utf8-string (integer->char n))))
    331332   ((assoc name entities) => cdr)
    332333   (else #f)))
     
    463464    (let ((entity (or entity (lambda (t s)
    464465                               (text (if (number? t)
    465                                          (string (integer->char t))
     466                                         (##sys#char->utf8-string
     467                                          (integer->char t))
    466468                                         (or (get-entity entities t)
    467469                                             (string-append "&" t ";")))
Note: See TracChangeset for help on using the changeset viewer.