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)))
uix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'>refs</a><a class='active' href='/guix/log/NEWS'>log</a><a href='/guix/tree/NEWS?id=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'>tree</a><a href='/guix/commit/NEWS?id=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'>commit</a><a href='/guix/diff/NEWS?id=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/NEWS'>
<input type='hidden' name='id' value='3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'/><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=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'>root</a>/<a href='/guix/log/NEWS?id=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987'>NEWS</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/NEWS?id=3eb34c66b42d1fa520a374e9b35a6ce7bd1e8987&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-22 20:27:28 +0100'>2020-11-22</span></td><td><a href='/guix/commit/NEWS?id=a099685659b4bfa6b3218f84953cbb7ff9e88063'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-13 09:13:56 +0100'>2020-11-13</span></td><td><a href='/guix/commit/NEWS?id=1e272d42f6217b70c9801b93e46b144e9ab27664'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-09 23:27:09 +0100'>2020-11-09</span></td><td><a href='/guix/commit/NEWS?id=b51da3ccef74e5842b87e39eea839e36831e844e'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-07 19:36:10 +0100'>2020-11-07</span></td><td><a href='/guix/commit/NEWS?id=afa77bd2287f303aefdd00193309ccf57f6dcd93'>Update NEWS.</a></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-11-07 16:14:03 +0100'>2020-11-07</span></td><td><a href='/guix/commit/NEWS?id=e8b9b0fae076a86e2be1dcb87b666d4490bac0aa'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-05 23:27:22 +0100'>2020-11-05</span></td><td><a href='/guix/commit/NEWS?id=51916455d0bb283489162ef84afc8145b28b012c'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-15 00:02:23 +0200'>2020-04-15</span></td><td><a href='/guix/commit/NEWS?id=d62c9b2671be55ae0305bebfda17b595f33797f2'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-12 17:05:21 +0200'>2020-04-12</span></td><td><a href='/guix/commit/NEWS?id=6945c43754308f64ad177fd29fa515959243f155'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-09 22:56:56 +0200'>2020-04-09</span></td><td><a href='/guix/commit/NEWS?id=f9adf3559543bdbcecad45280c9c626b63e84e95'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-17 11:25:51 +0200'>2019-05-17</span></td><td><a href='/guix/commit/NEWS?id=c34684b6bc32c76b2383cf3641dad1b059fd84fc'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-16 18:52:27 +0200'>2019-05-16</span></td><td><a href='/guix/commit/NEWS?id=22872f766615ed5ae300b6bc1212e3001f46a0e9'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-01 12:10:42 +0200'>2019-05-01</span></td><td><a href='/guix/commit/NEWS?id=6298c3ffd9654d3231a6f25390b056483e8f407c'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-29 11:31:23 +0200'>2019-04-29</span></td><td><a href='/guix/commit/NEWS?id=2f8198dfed1de935dfc60510a5514e5c289c3fc7'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-28 22:57:07 +0200'>2019-04-28</span></td><td><a href='/guix/commit/NEWS?id=7dac61143d9911ad02e239a44b17bd40f06d47a6'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-12-05 00:11:22 +0100'>2018-12-05</span></td><td><a href='/guix/commit/NEWS?id=eeedb094ec93ac63e92f733165a3e6883f6002ba'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-12-05 00:08:28 +0100'>2018-12-05</span></td><td><a href='/guix/commit/NEWS?id=273cce9875a1deba2b6669099e69824db55c9622'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-23 15:42:01 +0100'>2018-11-23</span></td><td><a href='/guix/commit/NEWS?id=4bd5b9707e14bd5ad4da6868687ff3c642705ce3'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>