From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Jan 1999 21:40:56 +0000 (+0000)
Subject: Fix compiler warnings.
X-Git-Tag: 20090517-FFI~4685
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=27f949127258de6aefb9a210449db6d6b8cb8705;p=mit-scheme.git

Fix compiler warnings.
---

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 61fcaac2c..68d4ecba1 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: loadef.scm,v 1.36 1999/01/14 21:37:46 cph Exp $
+;;; $Id: loadef.scm,v 1.37 1999/01/14 21:40:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -324,10 +324,10 @@ This is usually 103 or 2627."
   'PASSWORD-EDIT
   "Major mode specialized for viewing password files.")
 
-(define-autoload-command toggle-pw-form 'PASSWORD-EDIT
+(define-autoload-command 'toggle-pw-form 'PASSWORD-EDIT
   "Toggle the body of the password form under point.")
 
-(define-autoload-command mouse-toggle-pw-form 'PASSWORD-EDIT
+(define-autoload-command 'mouse-toggle-pw-form 'PASSWORD-EDIT
   "Toggle the body of the password form under mouse.")
 
 ;;;; DOS-specific commands
diff --git a/v7/src/edwin/pwedit.scm b/v7/src/edwin/pwedit.scm
index 2fcea9f69..f207431ed 100644
--- a/v7/src/edwin/pwedit.scm
+++ b/v7/src/edwin/pwedit.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: pwedit.scm,v 1.2 1999/01/14 21:35:05 cph Exp $
+;;; $Id: pwedit.scm,v 1.3 1999/01/14 21:40:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
 ;;;
@@ -118,8 +118,7 @@
     (lambda ()
       (let ((form
 	     (or (get-pw-form point)
-		 (error:bad-range-argument point 'INSERT-PW-BODY)))
-	    (le (line-end point 0)))
+		 (error:bad-range-argument point 'INSERT-PW-BODY))))
 	(if (eq? 'SHORT (car form))
 	    (let ((region (short-pw-body-region point)))
 	      (if region