Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: debugging an object

From: ingo:2b1 at: 13-Sep-2003 12:51

Hi Tim, does this come near? dbg: func [ 'name /local 'int][ either system/options/cgi/server-name[print <pre>][prin ""] int: any[all[word? name get name] none] either all[object? int (in int '_blk_)][ print [ "data of" head insert tail form name reduce [": " mold get In int '_blk_] ] ][ Print either word? :name [ head insert tail form name reduce [": " mold name: get :name] ][ mold :name ] ] ]
>> >> obj: context[
[ _blk_: ["one" 1 "one" 2 "two" "" 1 "here"] [ ]
>> num: 1
== 1
>> >> dbg obj
data of obj: ["one" 1 "one" 2 "two" "" 1 "here"]
>> dbg num
num: 1
>> dbg 3
3 I added the intermediate 'int, because in :name '_blk_ didn't work. I hope that helps, Ingo Tim Johnson wrote: