FIXED: libary(prolog_pack): detection of valid download URLs.

SWI-Prolog · Nov 5, 2024 · 4cfcde7 · 4cfcde7
1 parent 5b47690
commit 4cfcde7
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/library/prolog_pack.pl b/library/prolog_pack.pl
@@ -2164,8 +2164,9 @@
 url_scheme(URL, Scheme) :-
     atom(URL),
     uri_components(URL, Components),
-    uri_data(scheme, Components, Scheme),
-    atom(Scheme).
+    uri_data(scheme, Components, Scheme0),
+    atom(Scheme0),
+    Scheme = Scheme0.
 
 download_scheme(http).
 download_scheme(https).