Thanks I know so little about scheme that I don't know what's needed and what's not!
On Wed, 2009-02-25 at 21:18 +0000, Peter TB Brett wrote: > 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 > > > _______________________________________________ > geda-user mailing list > geda-user@moria.seul.org > http://www.seul.org/cgi-bin/mailman/listinfo/geda-user -- +---------------------------------------------------------------+ Mike Crowe Gulf Coast Data Concepts 611 Nicholson Ave Waveland, MS 39576 e-mail: mcr...@gcdataconcepts.com phone: 228.424.6307 30d 17.753' North 089d 22.022' West home of the USB-Accelerometer http://www.gcdataconcepts.com/xlr8r-1.html +---------------------------------------------------------------+ _______________________________________________ geda-user mailing list geda-user@moria.seul.org http://www.seul.org/cgi-bin/mailman/listinfo/geda-user