This commit is contained in:
Jay McCarthy 2019-11-02 13:45:16 -04:00
parent 73250ae23e
commit 2edea7db0d

View File

@ -306,7 +306,7 @@
[(pcdata? entity)
(string->list (pcdata-string entity))]
[(number? (entity-text entity))
(string (integer->char (entity-text entity)))]
(list (integer->char (entity-text entity)))]
;; more here - do something with user defined entites
[else '()])
(read-more)))]