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

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

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

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

; eof
