From 8088abdfae2f18520b9135221885479ae37a5dae Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Sat, 23 May 2020 09:38:28 -0400
Subject: Introduced new handling of other protocols under windows.  Likely
 broke dumb renderer for the moment.

---
 render.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'render.f90')

diff --git a/render.f90 b/render.f90
index 97458e0..ff9ed7f 100644
--- a/render.f90
+++ b/render.f90
@@ -240,15 +240,18 @@ contains
         
     end subroutine status_ready
     
-    subroutine report_unsupported_protocol(self, url)
+    function report_unsupported_protocol(self, url)
     implicit none
     
         class(renderer)::self
         character(*), intent(in)::url
+        logical::report_unsupported_protocol
  
         call self%draw_error("Only gemini:// URLs supported ("//url//")")
         
-    end subroutine report_unsupported_protocol
+        report_unsupported_protocol = .false.
+        
+    end function report_unsupported_protocol
     
     function width_of_line(r, text, startpos, endpos, heading_level, list_item)
     implicit none
-- 
cgit v1.2.3