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

(require 'pathname::update)

;+doc
; procedure: pathname:+type
; arguments: pathname type
; signature: pathname pathname:type -> pathname
; 
; Create new pathname consisting of PATHNAME with its type overwritten
; with TYPE.
;-doc

(define pathname:+type
  (let ((id (lambda (x) x)))
    (lambda (pathname type)
      (pathname::update pathname id id id id (lambda (_) type) id))))

; eof
