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

;+doc
; procedure: pathname:make
; arguments: host device directory name type version
; signature: pathname:host x pathname:device x pathname:directory
;            pathname:name x pathname:type x pathname:version -> pathname
;
; Create a PATHNAME out of the given components.
;-doc

(define pathname:make
  (lambda (host device directory name type version)
    (vector host device directory name type version)))

; Since it is not currently possible to create a disjoint type in
; Scheme, a PATHNAME is represented as a vector.  Note no tagging is
; done since there is no requirement at present to support PATHNAME?

; eof
