Thanks! I've commit the attached correction.

Dave

Thien-Thi Nguyen wrote:

>   From: Dave Brolley <brolley@redhat.com>
>   Date: Tue, 09 May 2006 14:22:02 -0400
>
>   + ; Return the directory name of the given file name
>   + 
>   + (define (dirname s)
>   +   (let loop ((i (string-length s)))
>   +     (cond ((= i 0) "")
>   + 	  ((char=? #\/ (string-ref s (- i 1))) (substring s 0 i))
>   + 	  (else (loop (- i 1)))))
>   + )
>   + 
>
>guile> (version)
>"1.4.1.107"
>guile> (dirname "/etc/hosts")
>"/etc"
>guile> dirname
>#<primitive-procedure dirname>
>
>thi
>  
>