Access map of hash - object previously saved

rebol []



bl1: make object! [
    name: "first"
    age: 42
]

bl2: make bl1 []

; probe join "bl1: " bl1
; probe join "bl2: " bl2

bl2/name: "second"
bl2/age: 30
; probe join "bl1: " bl1
; probe join "bl2: " bl2

hash1: checksum to-binary to-string bl1
hash2: checksum to-binary to-string bl2

m1: make map! []
repend m1 [hash1 bl1]
repend m1 [hash2 bl2]

save %./map_example.ls m1


m2: do load %./map_example.ls
probe join "m2: " type? m2
print m2
probe ""

bl3: make object! []
foreach  bl3 [ print join "name: " bl3/name "  age:" bl3/age]