From 2854c46851970a7defa7ce552ff4c85100885083 Mon Sep 17 00:00:00 2001
From: Oldes <oldes.huhuman@gmail.com>
Date: Mon, 6 Jul 2020 01:29:16 +0200
Subject: [PATCH] FEAT: tiny code optimization

---
 src/mezz/base-files.reb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mezz/base-files.reb b/src/mezz/base-files.reb
index 2edc5ecf65..0bde2d013c 100644
--- a/src/mezz/base-files.reb
+++ b/src/mezz/base-files.reb
@@ -155,7 +155,10 @@ file-type?: func [
 	"Return the identifying word for a specific file type (or NONE)."
 	file [file! url!]
 ][
-	if file: find find system/options/file-types suffix? file word! [first file]
+	all [
+		file: find find system/options/file-types suffix? file word!
+		first file
+	]
 ]
 
 split-path: func [