cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- prevented crash when the tour indices exceeds the number of links in a page.

Browse Source
This commit is contained in:
cage 2022-06-14 16:11:23 +02:00
parent 651b5fe963
commit 456602f89c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ui-goodies.lisp
View File

@ -2350,8 +2350,10 @@ gemini://gemini.circumlunar.space/docs/companion/subscription.gmi
(if (tour-mode-parser:range-p index)
(let ((from (tour-mode-parser:range-from index))
(to (tour-mode-parser:range-to index)))
(loop for i from (min from to) to (max from to) do
(pushnew i all-indices :test #'=)))
(loop for i from (min from to) to (max from to)
when (< i (length links))
do
(pushnew i all-indices :test #'=)))
(pushnew index all-indices :test #'=)))
(loop for index in (reverse all-indices) do
(if (<= 0 index (length links))