FEAT: allow block! as an argument for REGISTER-CODEC function

Oldes · Sep 19, 2018 · f3e243b · f3e243b
1 parent efd3c74
commit f3e243b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/mezz/sys-codec.r b/src/mezz/sys-codec.r
@@ -19,9 +19,10 @@ REBOL [
 
 register-codec: function [
 	{Registers non-native codec to system/codecs and it's suffixes into system/options/file-types}
-	codec [object!] "Codec to register (should be based on system/standard/codec template)"
+	codec [block! object!] "Codec to register (should be based on system/standard/codec template)"
 	/local name suffixes
 ][
+	if block? codec [codec: make object! codec]
 	if not word? name: try [codec/name][
 		cause-error 'Script 'wrong-type 'codec/name
 	]