when file don't exists read from URL

jcubic · Jan 19, 2024 · a68d5b3 · a68d5b3
1 parent 886b3e2
commit a68d5b3
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 11 deletions.
diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/bootstrap.scm b/lib/bootstrap.scm
@@ -1403,11 +1403,9 @@
                                 (http-get url binary)))))
       (if (not read-file)
           (fetch-url path binary)
-          (if (not (file-exists? path))
-              (throw (new Error (string-append "file "
-                                               path
-                                               " don't exists")))
-              (read-file path binary))))))
+          (if (file-exists? path)
+              (read-file path binary)
+              (fetch-url path binary))))))
 
 ;; -----------------------------------------------------------------------------
 (define %read-binary-file (curry %read-file true))