Fix build with texinfo 5.2

1 files changed, 39 insertions, 0 deletions

diff --git a/lang/guile/files/patch-doc__tutorial__guile-tut.texi b/lang/guile/files/patch-doc__tutorial__guile-tut.texi
new file mode 100644
index 000000000000..dfbaada1b3a0
--- /dev/null
+++ b/lang/guile/files/patch-doc__tutorial__guile-tut.texi
@@ -0,0 +1,39 @@
+--- ./doc/tutorial/guile-tut.texi.orig	2010-12-13 18:24:39.000000000 +0100
++++ ./doc/tutorial/guile-tut.texi	2014-06-25 22:55:00.775514198 +0200
+@@ -446,7 +446,7 @@
+ Schemer} from that list.}
+ 
+ 
+-@subsection Hello World
++@section Hello World
+ @cindex hello world
+ 
+ Our first program is the typical Scheme "hello world" program.  Put the
+@@ -535,12 +535,12 @@
+ guile> @kbd{(if (memq 4 ls)
+            (display "hey, it's true!\n")
+            (display "dude, it's false\n"))}
+-       @print{hey, it's true!}
++       @print{} hey, it's true!
+        @result{}
+ guile> @kbd{(if (memq 12 ls)
+            (display "hey, it's true!\n")
+            (display "dude, it's false\n"))}
+-       @print{dude, it's false}
++       @print{} dude, it's false
+        @result{}
+ guile> @kbd{(memq 4 (reverse ls))}
+        @result{} (4 3 2 1)
+@@ -656,9 +656,9 @@
+ (represent-matrix m
+                   (lambda (x) (begin (display x) (display " ")))
+                   (lambda (l) (begin (display "\n"))))
+-@print{7 2 1 3 2 8 5 3 6}
+-@print{4 1 1 1 3 8 9 8 1}
+-@print{5 5 4 8 1 8 2 2 4}
++@print{} 7 2 1 3 2 8 5 3 6
++@print{} 4 1 1 1 3 8 9 8 1
++@print{} 5 5 4 8 1 8 2 2 4
+ @end smalllisp
+ 
+ @cindex objects