On Wednesday 25 February 2009 19:22:37 Mike Crowe wrote: >(define xmlsearchandreplace > (lambda (s1 sstring rstring spos) > (let ((fpos1 (string-contains s1 sstring spos))) > (if fpos1 > (begin > (xmlsearchandreplace (string-insert s1 (+ 1 >fpos1) rstring ) sstring rstring (+ fpos1 (string-length rstring))) > ) > (begin > s1 > ) > ) > ) > ) >)
I consider this more readable. :P Note the alternative define syntax.
(define (xmlsearchandreplace s1 sstring rstring spos)
(let ((fpos1 (string-contains s1 sstring spos)))
(if fpos1
(xmlsearchandreplace
(string-insert s1 (+ 1 fpos1) rstring)
sstring rstring
(+ fpos1 (string-length rstring)))
s1)))
Peter
--
Peter Brett
Electronic Systems Engineer
Integral Informatics Ltd
signature.asc
Description: This is a digitally signed message part.
_______________________________________________ geda-user mailing list [email protected] http://www.seul.org/cgi-bin/mailman/listinfo/geda-user
