FIX: avoid an error when loading an unset value

Oldes · Dec 24, 2023 · aa227fc · aa227fc
1 parent 7a9e110
commit aa227fc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
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"