From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 24 Feb 2010 02:11:09 +0000 (-0800)
Subject: Fixup ignored variables.
X-Git-Tag: 20100708-Gtk~153
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36fc8bcc92ac2369aaa473d526546b434e9eaf99;p=mit-scheme.git

Fixup ignored variables.
---

diff --git a/src/6001/floppy.scm b/src/6001/floppy.scm
index 8c475fdea..dbd02aea4 100644
--- a/src/6001/floppy.scm
+++ b/src/6001/floppy.scm
@@ -799,7 +799,6 @@ M-x rename-file, or use the `r' command in Dired.")
   (make-condition-type 'FLOPPY-ERROR condition-type:error
       '(COMMAND OUTPUT)
     (lambda (condition port)
-      condition
       (write-string "An error occurred while accessing the floppy.\n" port)
       (write-string "The command being executed was:\n\n" port)
       (write-string (floppy-error/command condition) port)