From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 24 Jul 1987 22:11:16 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~13217
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6737730c50bb71304b12cb1c7a1f2ade9a29f186;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/input.scm b/v7/src/runtime/input.scm
index 66d28160a..169b1f5d8 100644
--- a/v7/src/runtime/input.scm
+++ b/v7/src/runtime/input.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.49 1987/07/24 21:57:51 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.50 1987/07/24 22:11:16 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -512,14 +512,13 @@
 )
 
 (define (stickify-input-filenames filename/s default-pathname)
-  (let ((->pathname
-	 (if default-pathname
-	     (lambda (filename)
-	       (merge-pathnames (->pathname filename) default-pathname))
-	     ->pathname)))
-    (if (pair? filename/s)
-	(map ->pathname filename/s)
-	(->pathname filename/s))))
+  (map (if default-pathname
+	   (lambda (filename)
+	     (merge-pathnames (->pathname filename) default-pathname))
+	   ->pathname)
+       (if (pair? filename/s)
+	   filename/s
+	   (list filename/s))))
 
 #|(define (stickify-input-filenames filename/s default-pathname)
   (let loop