From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1999 04:50:01 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4667
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2463cea45a1a6b1100ddcea385d818854c993466;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index e61566929..c8943a6f4 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.200 1999/01/28 06:14:03 cph Exp $
+;;; $Id: filcom.scm,v 1.201 1999/01/29 04:50:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -680,8 +680,7 @@ Prefix arg means treat the plaintext file as binary data."
 (define (prompt-for-existing-file prompt default . options)
   (->namestring
    (prompt-for-pathname* prompt default file-non-directory?
-			 'REQUIRE-MATCH? #t
-			 options)))
+			 (cons* 'REQUIRE-MATCH? #t options))))
 
 (define (file-non-directory? file)
   (and (file-exists? file)