FEAT: upgrades lexer scripts after callback type argument change.

`type` value is now a datatype! when a type name is passed.

Author: dockimbel

Scripts/lexer/count-types.red

@@ -25,7 +25,7 @@ context [
 		[scan load error open close]					;-- exclude 'prescan event for faster processing
 		switch event [
 			scan open [									;-- only counts scanned tokens and any-block! series
-				unless pos: find list type [repend pos: tail list [type 0]]
+				unless pos: find/only list type [repend pos: tail list [type 0]]		
 				pos/2: pos/2 + 1
 				event = 'open							;-- return TRUE for OPEN event, so that nested containers
 			]											;-- can be counted properly.

Scripts/lexer/load-commas.red

@@ -26,7 +26,7 @@ context [
 		inp: head input
 		switch event [
 			scan [
-				if type = 'float! [						;-- catch the float literals with commas
+				if type = float! [						;-- catch the float literals with commas
 					if pos: find/part at inp token/1 #"," at inp token/2 [
 						pos/1: #" "						;-- replace the comma in float literal by a whitespace
 						input: at inp token/1			;-- reposition input to try loading the token again

Scripts/lexer/longest.red

@@ -44,7 +44,7 @@ context [
 		[scan load open close]
 		switch event [
 			scan [
-				either any [str?: type = 'string! attempt [find any-word! get type]][
+				either any [str?: type = string! attempt [find any-word! type]][
 					entry: pick [string word] str?
 					if token/2 - token/1 > length? list/:entry [
 						list/:entry: to-string copy/part head input token

Scripts/lexer/unique-words.red

@@ -19,7 +19,7 @@ context [
 		return: [logic!]								;-- YES: continue to next lexing stage, NO: cancel current token lexing
 	][
 		[scan]											;-- only scan events
-		if find [word! set-word! lit-word! get-word!] type [
+		if all [datatype? type find any-word! type][
 			token: copy/part head input token
 			token: trim/with to-string token "':"
 			list/:token: 1 + any [list/:token 0]