From f618f4363dc0a2ba96178fddf364b357e49600b2 Mon Sep 17 00:00:00 2001
From: Neil Jerram <neil@ossau.uklinux.net>
Date: Sun, 9 Aug 2009 11:40:01 +0100
Subject: [PATCH] Use @result{} instead of -->

* doc/ref/goops.texi: Use @result{} instead of -->.
---
 doc/ref/goops.texi | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/doc/ref/goops.texi b/doc/ref/goops.texi
index c953d4443..06cf816ce 100644
--- a/doc/ref/goops.texi
+++ b/doc/ref/goops.texi
@@ -66,14 +66,14 @@ specialized for a particular set of argument types.
 (define-method (+ (x <string>) (y <string>))
   (string-append x y))
 
-(+ "abc" "de") --> "abcde"
+(+ "abc" "de") @result{} "abcde"
 @end lisp
 
 If @code{+} is used with arguments that do not match the method's
 types, Guile falls back to using the normal Scheme @code{+} procedure.
 
 @lisp
-(+ 1 2) --> 3
+(+ 1 2) @result{} 3
 @end lisp
 
 
@@ -94,7 +94,7 @@ types, Guile falls back to using the normal Scheme @code{+} procedure.
 
 (define v (make <2D-vector> #:x 3 #:y 4))
 
-v --> <3, 4>
+v @result{} <3, 4>
 @end group
 
 @group
@@ -103,7 +103,7 @@ v --> <3, 4>
         #:x (+ (x-component x) (x-component y))
         #:y (+ (y-component x) (y-component y))))
 
-(+ v v) --> <6, 8>
+(+ v v) @result{} <6, 8>
 @end group
 @end lisp
 
@@ -111,12 +111,12 @@ v --> <3, 4>
 @subsection Types
 
 @example
-(class-of v) --> #<<class> <2D-vector> 40241ac0>
-<2D-vector>  --> #<<class> <2D-vector> 40241ac0>
-(class-of 1) --> #<<class> <integer> 401b2a98>
-<integer>    --> #<<class> <integer> 401b2a98>
+(class-of v) @result{} #<<class> <2D-vector> 40241ac0>
+<2D-vector>  @result{} #<<class> <2D-vector> 40241ac0>
+(class-of 1) @result{} #<<class> <integer> 401b2a98>
+<integer>    @result{} #<<class> <integer> 401b2a98>
 
-(is-a? v <2D-vector>) --> #t
+(is-a? v <2D-vector>) @result{} #t
 @end example
 
 @node Tutorial