guile/guile-oops goops-tutorial.texi goops.texi

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/09 18:59:26

Modified files:
        guile-oops     : goops-tutorial.texi goops.texi 

Log message:
        Fix

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-oops/goops-tutorial.texi.diff?r1=1.8&r2=1.9
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-oops/goops.texi.diff?r1=1.14&r2=1.15

Patches:
Index: guile/guile-oops/goops-tutorial.texi
diff -u guile/guile-oops/goops-tutorial.texi:1.8 
guile/guile-oops/goops-tutorial.texi:1.9
--- guile/guile-oops/goops-tutorial.texi:1.8    Fri Mar  9 17:27:04 2001
+++ guile/guile-oops/goops-tutorial.texi        Fri Mar  9 18:59:25 2001
@@ -3,7 +3,7 @@
 @c
 @c STk Reference manual (Appendix: An Introduction to STklos)
 @c
address@hidden Copyright © 1993-1999, 2001 Erick Gallesio - I3S-CNRS/ESSI 
<address@hidden>
address@hidden Copyright © 1993-1999 Erick Gallesio - I3S-CNRS/ESSI 
<address@hidden>
 @c Permission to use, copy, modify, distribute,and license this
 @c software and its documentation for any purpose is hereby granted,
 @c provided that existing copyright notices are retained in all
@@ -763,7 +763,7 @@
 
   (define-method (new-+ (a <number>))  a)
   
-  (define-method (new-+ ) 0)
+  (define-method (new-+) 0)
 
   (define-method (new-+ . args)
     (new-+ (car args) 
Index: guile/guile-oops/goops.texi
diff -u guile/guile-oops/goops.texi:1.14 guile/guile-oops/goops.texi:1.15
--- guile/guile-oops/goops.texi:1.14    Fri Mar  9 17:51:28 2001
+++ guile/guile-oops/goops.texi Fri Mar  9 18:59:25 2001
@@ -7,11 +7,11 @@
 @paragraphindent 0
 @c %**end of header
 
address@hidden VERSION 0.2
address@hidden VERSION 0.3
 
address@hidden Scheme Programming
address@hidden The Algorithmic Language Scheme
 @direntry
-* goops: (goops).          The GOOPS reference manual.
+* GOOPS: (goops).               The GOOPS reference manual.
 @end direntry
 
 @macro goops
@@ -1665,21 +1665,17 @@
 
 To add a method to a generic function, use the @code{define-method} form.
 
address@hidden syntax define-method (symbol parameter @dots{}) . body
-Define a method for the generic function or accessor @var{symbol} with
address@hidden syntax define-method (generic parameter @dots{}) . body
+Define a method for the generic function or accessor @var{generic} with
 parameters @var{parameter}s and body @var{body}.
 
address@hidden must be either a symbol for a variable bound to a generic
-function or accessor, or @code{(setter @var{accessor-symbol})}, where
address@hidden is a symbol for a variable bound to an accessor.
-If the former, @code{define-method} defines a reference method for the
-specified generic function or accessor; if the latter,
address@hidden defines a setter method for the specified accessor.
-The @var{symbol} parameter is subject to these restrictions (rather than
-being allowed to be anything that evaluates to a generic function) so
-that @code{define-method} can construct a call to @code{define-generic}
-or @code{define-accessor} if @var{symbol} is not already defined as a
-generic function.
address@hidden is a generic function.  If @var{generic} is a variable
+which is not yet bound to a generic function object, the expansion of
address@hidden will include a call to @code{define-generic}.  If
address@hidden is @code{(setter @var{generic-with-setter})}, where
address@hidden is a variable which is not yet bound to a
+generic-with-setter object, the expansion will include a call to
address@hidden
 
 Each @var{parameter} must be either a symbol or a two-element list
 @code{(@var{symbol} @var{class})}.  The symbols refer to variables in