; -*- Scheme -*-
;
; $Id: pathname12.scm,v 1.1 1998/03/16 07:59:10 foner Exp $

(require 'unix:pathname->directory-string)

;+doc
; procedure: pathname->directory-string
; arguments: pathname
; signature: pathname -> string
;
; Returns the directory portion of PATHNAME.
; Equivalent to the CommonLisp function DIRECTORY-NAMESTRING
;
; > (pathname->directory-string (string->pathname "/usr/me/scm/pathname11.scm"))
; "/usr/me/scm/"
;
; > (pathname->directory-string (string->pathname "pathname11.scm"))
; ""
;-doc

(define pathname->directory-string unix:pathname->directory-string)

; eof
