This is the mail archive of the kawa@sourceware.cygnus.com mailing list for the Kawa project. See the Kawa home page for more information.

[Date Prev][Date Next][Thread Prev][Thread Next]
[Date Index] [Subject Index] [Author Index] [Thread Index]

Re: another macro problem

I forgot to provide the definition of `split-string':

(define split-string
  (lambda (string delimiter)
    (let ((len (string-length string)))
      (letrec ((collect (lambda (start end)
			  (cond
			   ((= end len)
			    (list (substring string start end)))
			   ((char=? (string-ref string end) delimiter)
			    (cons (substring string start end)
				  (collect (+ end 1) (+ end 1))))
			   (else (collect start (+ end 1)))))))
	(collect 0 0)))))

Aleks