From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 2006 16:59:35 +0000 (+0000)
Subject: Fix examples of MAKE-CLASS and DEFINE-CLASS so that the implicit
X-Git-Tag: 20090517-FFI~1052
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8481467d914654ed280c09cd2f311236020e61d8;p=mit-scheme.git

Fix examples of MAKE-CLASS and DEFINE-CLASS so that the implicit
generic-procedure definitions are made explicit.
---

diff --git a/v7/doc/sos/sos.texinfo b/v7/doc/sos/sos.texinfo
index 4d52b9f0e..6eb792c43 100644
--- a/v7/doc/sos/sos.texinfo
+++ b/v7/doc/sos/sos.texinfo
@@ -1,10 +1,10 @@
 \input texinfo @c -*-Texinfo-*-
-@comment $Id: sos.texinfo,v 2.19 2004/10/17 03:08:09 cph Exp $
+@comment $Id: sos.texinfo,v 2.20 2006/05/16 16:59:35 cph Exp $
 @comment %**start of header
 @setfilename mit-scheme-sos
 @set EDITION 2.11
-@set VERSION 1.8
-@set UPDATED 2004-10-16
+@set VERSION 1.9
+@set UPDATED 2006-05-16
 @settitle SOS @value{VERSION}
 @comment %**end of header
 @setchapternewpage on
@@ -20,7 +20,7 @@ This manual documents @acronym{SOS} @value{VERSION}.
 
 Copyright @copyright{} 1993,1994,1997,1998 Massachusetts Institute of Technology@*
 Copyright @copyright{} 1999,2000,2001,2002 Massachusetts Institute of Technology@*
-Copyright @copyright{} 2003,2004 Massachusetts Institute of Technology
+Copyright @copyright{} 2003,2004,2006 Massachusetts Institute of Technology
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document
@@ -310,6 +310,14 @@ Examples of @code{make-class}:
   (make-class '<cell> '() '()))
 @end group
 
+@group
+(define-generic cell-name (cell))
+(define-generic cell-width (cell))
+(define-generic cell-height (cell))
+(define-generic cell-components (cell))
+(define-generic set-cell-components! (cell components))
+@end group
+
 @group
 (define <contact>
   (make-class '<contact>
@@ -461,6 +469,14 @@ for @code{make-class}):
 @lisp
 (define-class <cell> ())
 
+@group
+(define-generic cell-name (cell))
+(define-generic cell-width (cell))
+(define-generic cell-height (cell))
+(define-generic cell-components (cell))
+(define-generic set-cell-components! (cell components))
+@end group
+
 @group
 (define-class (<contact> (constructor (name) no-init)) (<cell>)
   (name accessor cell-name))