strings, characters and positions... ¿?

[Reyes <reyes.garcia@xxxxxxxxxx>]

Hello,

I have make a procedure that returns the last position of a character in a
string. When this character isn't in the string returns -1.

(define (string-reverse-find str chr)
   (let loop ((pos (- (string-length str) 1)))
	      (if (>= pos 0)
		   (let ((c (string-ref str pos)))
		        (if (char=? chr c)
			     pos
			     (loop (- pos 1))
			 )
		   )
		   -1)))

But, is there a funtion like this in Jade?

Thanks, 
	 Reyes




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