From 71953b5970beeeefcc61a3960b4fb7bec4352551 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 25 Oct 2006 17:30:24 +0000 Subject: [PATCH] Use WITH-NOTIFICATION when pre-loading class definitions. --- v7/src/edwin/edwin.sf | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf index 91b7b5511..a1c9e9a14 100644 --- a/v7/src/edwin/edwin.sf +++ b/v7/src/edwin/edwin.sf @@ -1,9 +1,9 @@ #| -*-Scheme-*- -$Id: edwin.sf,v 1.33 2005/01/11 03:13:23 cph Exp $ +$Id: edwin.sf,v 1.34 2006/10/25 17:30:24 cph Exp $ Copyright 1989,1990,1991,1992,1995,1996 Massachusetts Institute of Technology -Copyright 1999,2000,2001,2005 Massachusetts Institute of Technology +Copyright 1999,2000,2001,2005,2006 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -51,13 +51,13 @@ USA. (let ((read-class-definitions (lambda (filename) - (fresh-line) - (write-string "Pre-loading class definitions from ") - (write filename) - (syntax* (read-file (string-append filename ".scm")) - (->environment '(EDWIN WINDOW))) - (write-string " -- done") - (newline)))) + (with-notification + (lambda (port) + (write-string "Pre-loading class definitions from " port) + (write filename port)) + (lambda () + (syntax* (read-file (string-append filename ".scm")) + (->environment '(EDWIN WINDOW)))))))) (read-class-definitions "window") (read-class-definitions "utlwin") (read-class-definitions "modwin") -- 2.25.1