From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 20:30:54 +0000 (+0000)
Subject: Use new port types mechanism.
X-Git-Tag: 20090517-FFI~4621
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eedf850833da1462c6e2dc74fe817476a2d39c73;p=mit-scheme.git

Use new port types mechanism.
---

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index a53293a25..f3fe70188 100644
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: emacs.scm,v 14.24 1999/02/16 20:11:25 cph Exp $
+$Id: emacs.scm,v 14.25 1999/02/16 20:30:54 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -209,24 +209,23 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (define (initialize-package!)
   (set! emacs-console-port
-	(make-i/o-port
-	 (make-i/o-port-type
-	  `((PROMPT-FOR-EXPRESSION ,emacs/prompt-for-expression)
-	    (PROMPT-FOR-COMMAND-CHAR ,emacs/prompt-for-command-char)
-	    (PROMPT-FOR-COMMAND-EXPRESSION
-	     ,emacs/prompt-for-command-expression)
-	    (PROMPT-FOR-CONFIRMATION ,emacs/prompt-for-confirmation)
-	    (DEBUGGER-FAILURE ,emacs/debugger-failure)
-	    (DEBUGGER-MESSAGE ,emacs/debugger-message)
-	    (DEBUGGER-PRESENTATION ,emacs/debugger-presentation)
-	    (WRITE-RESULT ,emacs/write-result)
-	    (SET-DEFAULT-DIRECTORY ,emacs/set-default-directory)
-	    (READ-START ,emacs/read-start)
-	    (READ-FINISH ,emacs/read-finish)
-	    (GC-START ,emacs/gc-start)
-	    (GC-FINISH ,emacs/gc-finish))
-	  the-console-port-type)
-	 (port/state the-console-port)))
+	(make-port (make-i/o-port-type
+		    `((PROMPT-FOR-EXPRESSION ,emacs/prompt-for-expression)
+		      (PROMPT-FOR-COMMAND-CHAR ,emacs/prompt-for-command-char)
+		      (PROMPT-FOR-COMMAND-EXPRESSION
+		       ,emacs/prompt-for-command-expression)
+		      (PROMPT-FOR-CONFIRMATION ,emacs/prompt-for-confirmation)
+		      (DEBUGGER-FAILURE ,emacs/debugger-failure)
+		      (DEBUGGER-MESSAGE ,emacs/debugger-message)
+		      (DEBUGGER-PRESENTATION ,emacs/debugger-presentation)
+		      (WRITE-RESULT ,emacs/write-result)
+		      (SET-DEFAULT-DIRECTORY ,emacs/set-default-directory)
+		      (READ-START ,emacs/read-start)
+		      (READ-FINISH ,emacs/read-finish)
+		      (GC-START ,emacs/gc-start)
+		      (GC-FINISH ,emacs/gc-finish))
+		    the-console-port-type)
+		   (port/state the-console-port)))
   ;; YUCCH!  Kludge to copy mutex of console port into emacs port.
   (set-port/thread-mutex! emacs-console-port
 			  (port/thread-mutex the-console-port))