From: Chris Hanson Date: Sun, 21 May 2000 00:03:32 +0000 (+0000) Subject: Fix typo and also type error. X-Git-Tag: 20090517-FFI~3766 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6a364830b838d4fd4541efaa5dbcd1ba454e2fd;p=mit-scheme.git Fix typo and also type error. --- diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm index 4cf8edba9..d6aabe5e5 100644 --- a/v7/src/imail/imail-util.scm +++ b/v7/src/imail/imail-util.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: imail-util.scm,v 1.22 2000/05/20 20:08:37 cph Exp $ +;;; $Id: imail-util.scm,v 1.23 2000/05/21 00:03:32 cph Exp $ ;;; ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology ;;; @@ -292,7 +292,7 @@ (define (derived-broken-pipe? condition) (and (eq? (condition/type condition) condition-type:derived-port-error) - (broken-pipe? (derived-condition condition)))) + (broken-pipe? (derived-port-condition condition)))) (define derived-port-condition (condition-accessor condition-type:derived-port-error 'CONDITION)) @@ -384,8 +384,9 @@ (cond ((not (pair? pathnames)) (if-not-found)) ((pair? (cdr pathnames)) - (if-not-unique (string-greatest-common-prefix - (map ->namestring pathnames)) + (if-not-unique (->pathname + (string-greatest-common-prefix + (map ->namestring pathnames))) (lambda () pathnames))) ((string-null? (file-namestring (car pathnames))) (if-directory (car pathnames)))