From: Chris Hanson Date: Mon, 31 Aug 1998 04:18:19 +0000 (+0000) Subject: Fix compiler warning. X-Git-Tag: 20090517-FFI~4743 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf338a271c49177d08ef9ae572fa1b0bac448e61;p=mit-scheme.git Fix compiler warning. --- diff --git a/v7/src/edwin/webster.scm b/v7/src/edwin/webster.scm index fea92b050..c7e130363 100644 --- a/v7/src/edwin/webster.scm +++ b/v7/src/edwin/webster.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: webster.scm,v 1.1 1998/08/31 04:15:00 cph Exp $ +$Id: webster.scm,v 1.2 1998/08/31 04:18:19 cph Exp $ Copyright (c) 1998 Massachusetts Institute of Technology @@ -156,6 +156,7 @@ Use webster-mode-hook for customization." (local-set-variable! mode-line-process (lambda (window) + window (if (and webster-server-port (not (input-port/eof? webster-server-port))) ": connected"