CHANGE: remove found? mezzanine

related to: Oldes/Rebol-issues#2053

Author: Oldes

src/mezz/mezz-series.reb

@@ -26,12 +26,13 @@ offset?: func [
 	subtract index? series2 index? series1
 ]
 
-found?: func [
-	"Returns TRUE if value is not NONE."
-	value
-][
-	not none? :value
-]
+;@@ https://github.com/Oldes/Rebol-issues/issues/2053
+;found?: func [
+;	"Returns TRUE if value is not NONE."
+;	value
+;][
+;	not none? :value
+;]
 
 last?: single?: func [
 	"Returns TRUE if the series length is 1."
@@ -374,7 +375,7 @@ alter: func [
 			append series :value true
 		]
 	]
-	found? unless remove (
+	to logic! unless remove (
 		either case [find/case series :value] [find series :value]
 	) [append series :value]
 ]

src/mezz/prot-http.reb

@@ -766,7 +766,7 @@ sys/make-scheme [
 		open?: func [
 			port [port!]
 		][
-			found? all [object? port/state open? port/state/connection]
+			all [object? port/state  open? port/state/connection  true]
 		]
 		close: func [
 			port [port!]

src/mezz/prot-mysql.reb

@@ -998,7 +998,7 @@ mysql-driver: make object! [
 						]
 						blob-to-text: [blob text tinyblob tinytext mediumblob mediumtext longblob longtext]
 						unless none? text-type: select blob-to-text col/type [
-							unless found? find col/flags 'binary [
+							unless find col/flags 'binary [
 								col/type: text-type
 							]
 						]

src/mezz/prot-tls.reb

@@ -399,7 +399,7 @@ TLS-init-cipher-suite: func [
 		(
 			ctx/key-method:   to word! key-method
 			ctx/crypt-method: to word! cipher
-			ctx/is-aead?: found? find [AES_128_GCM AES_256_GCM CHACHA20_POLY1305] ctx/crypt-method
+			ctx/is-aead?: to logic! find [AES_128_GCM AES_256_GCM CHACHA20_POLY1305] ctx/crypt-method
 
 			log-more [
 				"Key:^[[1m" ctx/key-method
@@ -1871,7 +1871,7 @@ sys/make-scheme [
 			port
 		]
 		open?: func [port [port!]][
-			found? all [port/state open? port/state/connection]
+			all [port/state open? port/state/connection true]
 		]
 		close: func [port [port!] /local ctx check1 check2][
 			log-more "CLOSE"

src/tests/units/bincode-test.r3

@@ -370,7 +370,7 @@ is-protected-error?: func[code][
 
 	--test-- "BinCode - FLOAT16, FLOAT, DOUBLE (write/read NAN)"
 		b: binary/write #{} [float16 1.#NaN float 1.#NaN double 1.#NaN]
-		--assert found? find [
+		--assert not none? find [
 			#{007E0000C07F000000000000F87F}
 			#{007E0000C0FF000000000000F8FF} ; when used clang compiler (should it be normalized?)
 		] b/buffer

src/tests/units/datatype-test.r3

@@ -24,14 +24,14 @@ Rebol [
 
 	--test-- "find datatype!"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/256
-		--assert found? find [#[datatype! string!] #[datatype! binary!]] #[datatype! binary!]
-		--assert found? find reduce [string! binary!] binary!
-		--assert found? find [#[datatype! string!] #[datatype! binary!]] #[datatype! binary!]
-		--assert found? find ["test"] string!
-		--assert found? find ["test"] series!
+		--assert not none? find [#[datatype! string!] #[datatype! binary!]] #[datatype! binary!]
+		--assert not none? find reduce [string! binary!] binary!
+		--assert not none? find [#[datatype! string!] #[datatype! binary!]] #[datatype! binary!]
+		--assert not none? find ["test"] string!
+		--assert not none? find ["test"] series!
 		--assert  none? find reduce [integer! binary!] series!
 		--assert ["aha"] = find reduce [integer! "aha"] series!
-		--assert found? find any-string! ref!
+		--assert not none? find any-string! ref!
 
 ===end-group===
 

src/tests/units/enum-test.r3

@@ -25,7 +25,7 @@ Rebol [
 	--assert object? *FX-DX8
 	--assert 0 = *FX-DX8/CHORUS
 	--assert 8 = *FX-DX8/REVERB
-	--assert found? find [ECHO FLANGER] *FX-DX8/name 4
+	--assert not none? find [ECHO FLANGER] *FX-DX8/name 4
 
 
 --test-- "enum with mixed specification"

src/tools/make-make.reb

@@ -302,7 +302,7 @@ output: make string! 10000
 ;** Functions
 ;******************************************************************************
 
-flag?: func ['word] [found? find build-flags word]
+flag?: func ['word] [not none? find build-flags word]
 
 macro+: func [
 	"Appends value to end of macro= line"