From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Jan 2000 20:58:33 +0000 (+0000)
Subject: Fix some compilation bugs.
X-Git-Tag: 20090517-FFI~4315
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=287c3b1f00415a7a8501673d14b0554484bfdcdf;p=mit-scheme.git

Fix some compilation bugs.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index d6805b5aa..001074869 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.3 2000/01/15 05:25:32 cph Exp $
+;;; $Id: imail-top.scm,v 1.4 2000/01/18 20:58:33 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -224,19 +224,22 @@ DEL	Scroll to previous screen of this message.
 (define-key 'imail-edit '(#\c-c #\c-])	'imail-abort-edit)
 
 (define (imail-revert-buffer buffer dont-use-auto-save? dont-confirm?)
-  )
+  ???)
 
 (define (imail-kill-buffer buffer)
-  )
+  ???)
 
 (define-command imail-input
   "Append messages to this folder from a specified folder."
   "sInput from imail folder"
   (lambda (url-string)
-    ))
+    ???))
 
 (define-command imail-quit
-  )
+  ""
+  ()
+  (lambda ()
+    ???))
 
 (define-command imail-synchronize
   "Synchronize the current folder with the master copy on the server.