From 4bbd936e040fa9a6b7d609813e5e5edd0eaa28b6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 Feb 2000 23:00:20 +0000
Subject: [PATCH] Fix compiler warning.

---
 v7/src/edwin/hlpcom.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index a7863fdc7..d443c1977 100644
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: hlpcom.scm,v 1.111 2000/02/23 22:59:01 cph Exp $
+;;; $Id: hlpcom.scm,v 1.112 2000/02/23 23:00:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -400,6 +400,7 @@ If you want VALUE to be a string, you must surround it with doublequotes."
 		  (find-escape next comtabs))))
 	 (new-mode
 	  (lambda (argument next comtabs)
+	    comtabs
 	    (find-escape next
 			 (mode-comtabs (name->mode argument 'ERROR)))))
 	 (quote-next
-- 
2.25.1