From 47076113417331780c9634b330fd57507abbbe7a Mon Sep 17 00:00:00 2001 From: Oldes Date: Thu, 11 Oct 2018 15:38:45 +0200 Subject: [PATCH] FIX: using reversed order of codecs in ENCODING? function, so user defined codecs has higher chance to be recognized --- src/mezz/sys-codec.r | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/mezz/sys-codec.r b/src/mezz/sys-codec.r index 45d4f09a20..f8b6dcd9ca 100644 --- a/src/mezz/sys-codec.r +++ b/src/mezz/sys-codec.r @@ -86,15 +86,17 @@ encoding?: function [ "Returns the media codec name for given binary data. (identify)" data [binary!] ][ - foreach [name codec] system/codecs [ - either handle? try [cod/entry] [ + + foreach name reverse words-of system/codecs [ + codec: system/codecs/:name + either handle? try [codec/entry] [ if do-codec codec/entry 'identify data [ return name ] ][ if all [ - function? try [:cod/identify] - cod/identify data + function? try [:codec/identify] + codec/identify data ][ return name ]