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

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

;+doc
; procedure: unix:pathname->directory-string
; arguments: pathname
; signature: pathname -> string
;
; Returns the directory portion of PATHNAME as a UNIX directory.
; Equivalent to the CommonLisp function DIRECTORY-NAMESTRING
;-doc

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

; eof
