FIX: additional test for existence of the event custom type value in the http scheme

Oldes · Oldes · commit fa0c04609c8e · 2018-05-29T12:45:33.000+02:00
diff --git a/src/mezz/prot-http.r b/src/mezz/prot-http.r
@@ -95,7 +95,7 @@ read-sync-awake: func [event [event!] /local error] [
 			true
 		]
 		custom [
-			if event/offset/x = 300 [
+			if all [event/offset event/offset/x = 300] [
 				event/port/state/state: 'redirect
 				return true
 			]

Original file line number	Diff line number	Diff line change
`@@ -95,7 +95,7 @@ read-sync-awake: func [event [event!] /local error] [`
`95`	`95`	`true`
`96`	`96`	`]`
`97`	`97`	`custom [`
`98`		`- if event/offset/x = 300 [`
	`98`	`+ if all [event/offset event/offset/x = 300] [`
`99`	`99`	`event/port/state/state: 'redirect`
`100`	`100`	`return true`
`101`	`101`	`]`