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

- replaced local function with a global one.

This commit is contained in:
cage 2021-02-06 16:51:15 +01:00
parent 6a1ea415f7
commit e32358c6d5
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gemini-viewer.lisp
View File

@ -472,10 +472,8 @@
(when (null enqueue)
(ensure-just-one-stream-rendering))
(handler-case
(labels ((gemini-file-stream-p (meta)
(gemini-client:mime-gemini-p meta))
(starting-status (meta)
(if (gemini-file-stream-p meta)
(labels ((starting-status (meta)
(if (gemini-client:gemini-file-stream-p meta)
(if enqueue
:streaming
:rendering)
@ -564,7 +562,7 @@
(get-user-input t host meta))
((streamp response)
(gemini-client:debug-gemini "response is a stream")
(if (gemini-file-stream-p meta)
(if (gemini-client:gemini-file-stream-p meta)
(let* ((starting-status (starting-status meta))
(gemini-stream (make-instance 'gemini-file-stream
:host host