Re: element in mixed content

[Chris Maden <crism@xxxxxxx>]

[Chris Maden]
> (let get-next-data ((this-node mark-element)
> 		    (next-node (fsibling mark-element)))
>      (if (node-list-empty? next-node)
> 	 ""
> 	 (let ((next-char (char next-node)))
> 	   (if next-char
> 	       (string-append next-char
> 			      (get-next-data next-node
> 					     (fsibling next-node)))
> 	       ""))))

This was kind of dumb.  For some reason, I'm carrying around the
current node, which is never used.  Try this instead:

(let get-next-data ((next-node (fsibling mark-element)))
     (if (node-list-empty? next-node)
	 ""
	 (let ((next-char (char next-node)))
	   (if next-char
	       (string-append next-char
			      (get-next-data (fsibling next-node)))
	       ""))))

-Chris
-- 
<!NOTATION SGML.Geek PUBLIC "-//Anonymous//NOTATION SGML Geek//EN">
<!ENTITY crism PUBLIC "-//O'Reilly//NONSGML Christopher R. Maden//EN"
"<URL>http://www.oreilly.com/people/staff/crism/ <TEL>+1.617.499.7487
<USMAIL>90 Sherman Street, Cambridge, MA 02140 USA" NDATA SGML.Geek>


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