cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- prevented crash when 'original-path' is nil.

This commit is contained in:
cage 2020-07-02 20:26:40 +02:00
parent 64ffd305bd
commit 9788bf12fb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gemini/gemini-parser.lisp
View File

@ -249,7 +249,9 @@
(let* ((absolute-path-p (string-starts-with-p "/" link-value))
(path (if absolute-path-p
link-value
(strcat (path-last-dir original-path)
(strcat (if original-path
(path-last-dir original-path)
"/")
link-value))))
(make-gemini-uri original-host
(normalize-path path)