FIX: avoid an error when loading an unset value

Oldes · Oldes · commit aa227fc7f8a5 · 2023-12-24T13:08:42.000+01:00
diff --git a/src/mezz/sys-load.reb b/src/mezz/sys-load.reb
@@ -354,7 +354,7 @@ load: function [
 			header
 			empty? data
 			1 < length? data
-		][data: first data]
+		][set/any 'data first data]
 	]
 	:data
 ]
diff --git a/src/tests/units/load-test.r3 b/src/tests/units/load-test.r3
@@ -103,6 +103,9 @@ Rebol [
 			e/near = "(line 4) 4line"
 		]
 
+	--test-- "loading an unset value"
+		--assert unset? try [load "#[unset]"] ;- no error
+
 ===end-group===
 
 ===start-group=== "find-script native"

Original file line number	Diff line number	Diff line change
`@@ -103,6 +103,9 @@ Rebol [`
`103`	`103`	`e/near = "(line 4) 4line"`
`104`	`104`	`]`
`105`	`105`
	`106`	`+ --test-- "loading an unset value"`
	`107`	`+ --assert unset? try [load "#[unset]"] ;- no error`
	`108`	`+`
`106`	`109`	`===end-group===`
`107`	`110`
`108`	`111`	`===start-group=== "find-script native"`