[REBOL] More on obscure behavior...
From: joel::neely::fedex::com at: 13-May-2002 23:45
I'm sure everyone on this list will understand why the following
change resolves the problem...
bug?: make object! [
width: 3
data: [1]
plop: func [b [block!]] [append data b]
child-proto: make object! [
label: "no such"
dataref: func [] [dataref: data] ;; changed line here
dump: func [] [print [label newline tab mold dataref]]
reset: func [] [dataref: head dataref]
]
children: make block! width
repeat i width [
append children make child-proto [
label: join "Child-" i
]
]
fizz: func [] [
foreach child children [
child/dump
]
]
]
... but that doesn't bring me any closer to understanding why
there's a problem to be resolved!
-jn-
--
; Joel Neely joeldotneelyatfedexdotcom
REBOL [] do [ do func [s] [ foreach [a b] s [prin b] ] sort/skip
do function [s] [t] [ t: "" foreach [a b] s [repend t [b a]] t ] {
| e s m!zauafBpcvekexEohthjJakwLrngohOqrlryRnsctdtiub} 2 ]
