FEAT: makes use of dynamic refinements or APPLY in the runtime mezz functions.

Author: dockimbel

environment/functions.red

@@ -27,11 +27,7 @@ attempt: func [
 	value [block!]
 	/safer "Capture all possible errors and exceptions"
 ][
-	either safer [
-		unless error? set/any 'value try/all :value [get/any 'value]
-	][
-		unless error? set/any 'value try :value [get/any 'value]
-	]
+	unless error? set/any 'value (apply 'try/:all [:value safer]) [get/any 'value]
 ]
 
 comment: func ["Consume but don't evaluate the next value" 'value][]
@@ -334,15 +330,7 @@ context [
 		return: [logic! block!]
 	][
 		clear p-indent
-		either case [
-			parse/case/trace input rules :on-parse-event
-		][
-			either part [
-				parse/part/trace input rules limit :on-parse-event
-			][
-				parse/trace input rules :on-parse-event
-			]
-		]
+		parse/:case/:part/trace input rules limit :on-parse-event
 	]
 ]
 
@@ -363,11 +351,7 @@ scan: func [
 	/fast					  "Fast scanning, returns best guessed type"
 	return: [datatype! none!] "Recognized or guessed type, or NONE on empty input"
 ][
-	either fast [
-		either next [transcode/next/prescan buffer][transcode/prescan buffer]
-	][
-		either next [transcode/next/scan buffer][transcode/scan buffer]
-	]
+	apply 'transcode/:next/:scan/:prescan [buffer  :next  not fast  fast]
 ]
 
 load: function [
@@ -767,7 +751,7 @@ collect: function [
 	/into 		  		 "Insert into a buffer instead (returns position after insert)"
 		collected [series!] "The buffer series (modified)"
 ][
-	keep: func [v /only][either only [append/only collected v][append collected v] v]
+	keep: func [v /only][append/:only collected v v]
 
 	unless collected [collected: make block! 16]
 	parse body rule: [									;-- selective binding (needs BIND/ONLY support)
@@ -937,9 +921,9 @@ read-thru: function [
 ][
 	path: path-thru url
 	either all [not update exists? path] [
-		data: either binary [read/binary path][read path]
+		data: read/:binary path
 	][
-		data: either binary [read/binary url][read url]
+		data: read/:binary url
 		attempt [write/binary path data]
 	]
 	data
@@ -955,7 +939,7 @@ load-thru: function [
 	path: path-thru url
 	if all [not update exists? path][url: path]
 	file: either as [load/as url type][load url]
-	if url? url [attempt [either as [save/as path file type][save path file]]]
+	if url? url [attempt [save/:as path file type]]
 	file
 ]
 
@@ -964,7 +948,7 @@ do-thru: function [
 	url [url!]	"Remote file address"
 	/update		"Force a cache update"
 ][
-	do either update [load-thru/update url][load-thru url]
+	do load-thru/:update url
 ]
 
 cos: func [