Fix doc snarfing with GCC 4.5+.
From <http://git.savannah.gnu.org/cgit/guile.git/commit/?h=branch_release-1-8&id=aac41d28358cea594bb30f6e547afb82bb6004a6>.

diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index ea33e17..8cd42e8 100755
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -267,6 +267,17 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
       (set! *file* file)
       (set! *line* line))
 
+     ;; newer gccs like to throw around more location markers into the
+     ;; preprocessed source; these (hash . hash) bits are what they translate to
+     ;; in snarfy terms.
+     (('location ('string . file) ('int . line) ('hash . 'hash))
+      (set! *file* file)
+      (set! *line* line))
+
+     (('location ('hash . 'hash) ('string . file) ('int . line) ('hash . 'hash))
+      (set! *file* file)
+      (set! *line* line))
+
      (('arglist rest ...)
       (set! *args* (do-arglist rest)))
lass='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>refs</a><a class='active' href='/guix/log/gnu/packages/tls.scm'>log</a><a href='/guix/tree/gnu/packages/tls.scm?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>tree</a><a href='/guix/commit/gnu/packages/tls.scm?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>commit</a><a href='/guix/diff/gnu/packages/tls.scm?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/tls.scm'>
<input type='hidden' name='id' value='c8b19d97833243e7e89f8ca83a0d641de6516271'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>root</a>/<a href='/guix/log/gnu?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>gnu</a>/<a href='/guix/log/gnu/packages?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>packages</a>/<a href='/guix/log/gnu/packages/tls.scm?id=c8b19d97833243e7e89f8ca83a0d641de6516271'>tls.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/tls.scm?id=c8b19d97833243e7e89f8ca83a0d641de6516271&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-04-20 23:46:43 +0200'>2022-04-20</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=25a1c60b1ca99e500d1bd909af85a08eeb2b0ae3'>gnu: aws-lc: Update to 1.0.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (aws-lc): Update to 1.0.2.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Greg Hogan</td></tr>
<tr><td><span title='2022-04-20 23:46:43 +0200'>2022-04-20</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=bc3e32454f1641281a689fdbf9f4e1493dcf2157'>gnu: s2n: Update to 1.3.10.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (s2n): Update to 1.3.10.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Greg Hogan</td></tr>
<tr><td><span title='2022-04-12 20:32:31 +0200'>2022-04-12</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=1be7f437568ca6a238e2172a37720f5529021d49'>gnu: libressl: Update to 3.3.6.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (libressl): Update to 3.3.6.
</span></span></td><td>Liliana Marie Prikler</td></tr>
<tr><td><span title='2022-04-01 18:01:06 +0200'>2022-04-01</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=0fffcfa41df50b631014f2df02822da3d1c80110'>gnu: libressl: Add 'release-monitoring-url' property.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (libressl)[properties]: New field.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-16 17:14:19 -0400'>2022-03-16</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=62ea3d510f1d1af76ba7fd573eea9c666558f299'>gnu: OpenSSL 3: Update to 3.0.2 [fixes CVE-2022-0778].</a><span class='msg-avail'>...<span class='msg-tooltip'>For more information about this vulnerability:

https://www.openssl.org/news/secadv/20220315.txt

* gnu/packages/tls.scm (openssl-3.0): Update to 3.0.2.
</span></span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2022-03-16 17:14:08 -0400'>2022-03-16</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=139a5cab0409d4582cfab49f47e2e045664a60c3'>gnu: OpenSSL: Update to 1.1.1n [fixes CVE-2022-0778].</a><span class='msg-avail'>...<span class='msg-tooltip'>For more information about this vulnerability:

https://www.openssl.org/news/secadv/20220315.txt

* gnu/packages/tls.scm (openssl/fixed): Update to 1.1.1n.
</span></span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2022-01-30 17:04:34 +0100'>2022-01-30</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=43dd34c7777a212c99a97da7a2c237158faa9a1b'>gnu: Remove OpenSSL 1.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>This package no longer has any users in Guix.

* gnu/packages/tls.scm (openssl-1.0): Remove variable.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-01-30 17:04:34 +0100'>2022-01-30</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=2932c421a3921ccf7dd045cdbd54b23843882d8e'>gnu: OpenSSL: Add 3.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (openssl-3.0): New variable.
* gnu/packages/patches/openssl-3.0-c-rehash-in.patch: New file.
* gnu/local.mk (dist_patch_DATA): Adjust accordingly.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-01-26 11:49:27 +0200'>2022-01-26</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=1402c6abe150ced4cbb4fa0721fe7c8796fe2c38'>gnu: openssl: Update to 1.1.1m [security fixes].</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (openssl/fixed): New variable.
(openssl)[replacement]: New field.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-01-18 10:55:29 +0100'>2022-01-18</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=f73c2aba1cd73073bc774127d29f5f6bbc3107c8'>gnu: Add bearssl.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/tls.scm (bearssl): New variable.
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>This commit was obtained by running:

  ./pre-inst-env guix style

without any additional argument.
</span></span></td><td>Ludovic Courtès</td></tr>