From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Aug 1994 06:21:42 +0000 (+0000)
Subject: Add declaration to eliminate compiler warning.
X-Git-Tag: 20090517-FFI~7148
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ebac7637d51264d3789f186393087bbf32cc5fc;p=mit-scheme.git

Add declaration to eliminate compiler warning.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 50013c3a5..0ca49acf2 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.149 1994/08/04 04:36:47 cph Exp $
+;;;	$Id: dired.scm,v 1.150 1994/08/04 06:21:42 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -541,6 +541,7 @@ When renaming multiple or marked files, you specify a directory."
 
 (define (dired-create-file-operation operation)
   (lambda (lstart from to)
+    lstart
     (call-with-current-continuation
      (lambda (continuation)
        (bind-condition-handler (list condition-type:file-error