[ALLY] Re: new functions?
From: agem:crosswinds at: 11-Apr-2001 21:26
[rebol [
title: "quick set-default-hack"
aithor: "Volker Nitsch"
comment: {
would like cold pathes too.
but then, could pathes be more similar to words?
like [set a 11] and [set a/b 11]
[value? a][value? a/b]
and so on?
}
]
without: func ['name [word! path!] block] [
either word? name [
if any [not value? name none? get name] [
do func [set-it] block to set-word! name
]
] [
if any [not name] [
do func [set-it] block to set-path! :name
]
]
]
unset 'a
without a [set-it none]
? a
without a [set-it 123]
? a
a: context [b: none]
? a
without a/b [set-it 15]
? a
without a/b [set-it 28]
? a
]