From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Mar 2003 05:14:21 +0000 (+0000)
Subject: Change name of button type from BUTTON-RECORD-TYPE to <BUTTON>.
X-Git-Tag: 20090517-FFI~2002
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=02d76973277e01e06aa970c1bba5306e068d3a49;p=mit-scheme.git

Change name of button type from BUTTON-RECORD-TYPE to <BUTTON>.
---

diff --git a/v7/src/edwin/edtstr.scm b/v7/src/edwin/edtstr.scm
index ecdb6c280..735d3e9e6 100644
--- a/v7/src/edwin/edtstr.scm
+++ b/v7/src/edwin/edtstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edtstr.scm,v 1.30 2003/03/06 05:05:52 cph Exp $
+$Id: edtstr.scm,v 1.31 2003/03/06 05:14:21 cph Exp $
 
 Copyright 1989,1990,1991,1992,2003 Massachusetts Institute of Technology
 
@@ -113,7 +113,7 @@ USA.
      (lambda ()
        (set-editor-button-event! current-editor old-button-event)))))
 
-(define-record-type button-record-type
+(define-record-type <button>
   (%%make-button number down?)
   button?
   (number button/number)
@@ -152,9 +152,9 @@ USA.
   button
   0)
 
-(set-record-type-unparser-method! button-record-type
-  (unparser/standard-method (record-type-name button-record-type)
-    (lambda (state button)
-      (unparse-string state (if (button/down? button) "down" "up"))
-      (unparse-char state #\space)
-      (unparse-object state (button/number button)))))
\ No newline at end of file
+(set-record-type-unparser-method! <button>
+  (standard-unparser-method (record-type-name <button>)
+    (lambda (button port)
+      (write-string (if (button/down? button) "down" "up") port)
+      (write-char #\space port)
+      (write (button/number button) port))))
\ No newline at end of file