From 370428913801e42ce456b26f538b75d824628957 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 4 Jun 2013 06:14:46 +0900 Subject: [PATCH] Handling raw numbers in sxml format. --- lib/chibi/sxml.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/chibi/sxml.scm b/lib/chibi/sxml.scm index b199f282..6dc49cf9 100644 --- a/lib/chibi/sxml.scm +++ b/lib/chibi/sxml.scm @@ -52,10 +52,11 @@ (apply string-append (reverse (cons ">" res))) (lp (cdr ls) (cons (html-attr->string (car ls)) (cons " " res)))))) -(define (html-display-escaped-string str . o) - (let ((start 0) - (end (string-length str)) - (out (if (pair? o) (car o) (current-output-port)))) +(define (html-display-escaped-string x . o) + (let* ((str (display-to-string x)) + (start 0) + (end (string-length str)) + (out (if (pair? o) (car o) (current-output-port)))) (let lp ((from start) (to start)) (if (>= to end) (display (substring str from to) out)