Add declaration to eliminate compiler warning.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 50013c3a5e718d33447bd9135d68923071fd6896..0ca49acf26a69db8859a85c3508f84740bfe48aa 100644 (file)
--- 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