From: Arthur A. Gleckler <gnu@speechcode.com>
Date: Thu, 12 Jan 2017 05:14:49 +0000 (-0800)
Subject: Fix: examples were swapped.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~146^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a7be80cc568a38e8bc4546a214dfe37452ce6ab;p=mit-scheme.git

Fix: examples were swapped.
---

diff --git a/doc/ref-manual/lists.texi b/doc/ref-manual/lists.texi
index 7aeb3a772..263c1b052 100644
--- a/doc/ref-manual/lists.texi
+++ b/doc/ref-manual/lists.texi
@@ -527,9 +527,9 @@ list, otherwise returns @code{#f}.
 
 @example
 @group
-(dotted-list? (list 'a 'b 'c))          @result{} #f
-(dotted-list? (cons* 'a 'b 'c))         @result{} #t
-(dotted-list? (circular-list 'a 'b 'c)) @result{} #f
+(circular-list? (list 'a 'b 'c))        @result{} #f
+(circular-list? (cons* 'a 'b 'c))       @result{} #f
+(circular-list? (circular-list 'a 'b 'c)) @result{} #t
 @end group
 @end example
 @end deffn
@@ -540,9 +540,9 @@ list, otherwise returns @code{#f}.
 
 @example
 @group
-(circular-list? (list 'a 'b 'c))        @result{} #f
-(circular-list? (cons* 'a 'b 'c))       @result{} #f
-(circular-list? (circular-list 'a 'b 'c)) @result{} #t
+(dotted-list? (list 'a 'b 'c))          @result{} #f
+(dotted-list? (cons* 'a 'b 'c))         @result{} #t
+(dotted-list? (circular-list 'a 'b 'c)) @result{} #f
 @end group
 @end example
 @end deffn