Rebol和/ local对象

Question

如果Obj是本地的，则下面的新函数不起作用。如果我从/本地删除它的作品。那么该怎么做才能使它与本地的Obj一起工作，谢谢？当然不难为你。

Person: make object! [ 

Person: func[FirstName LastName][ 
    Self/FirstName: FirstName 
    Self/LastName: LastName 
    Print Self/FirstName 
    Print Self/LastName 
] 
FirstName: "" 
LastName: "" 

] 



new: func[Class [Object!] Param-Block [block!] /local Obj][ 
    Constructor: to-word pick pick Class 1 2 
    Obj: Make Class [] 
    params: copy "" 
    foreach param Param-Block [ 
     if string? param [ 
     param: rejoin [{"} param {"}] 
     ] 
     append params param 
     append params " " 
    ] 
    do rejoin [{do get in Obj Constructor} { } params] 
    Obj 
] 
;FOR TEST 
John: new Person["John" "Doe"] 

还会送

>> probe John 
make object! [ 
    Person: func [FirstName LastName][ 
     Self/FirstName: FirstName 
     Self/LastName: LastName 
     Print Self/FirstName 
     Print Self/LastName 
    ] 
    FirstName: "" 
    LastName: "" 
] 
>> 

也就是说名字和姓氏是 “”，而不是 “约翰”， “李四”

Answer 1

这工作...

rebol [] 

    Person: make object! [ 
     Person: func [ names] [ 
      Self/FirstName: names/1 
      Self/LastName: names/2 
     ] 
     FirstName: copy "" 
     LastName: copy "" 
    ] 

    new: func [class [object!] param-block [block!] 
     /local obj constructor 
    ] [ 
     constructor: second first class 
     obj: make class [] 
     do get in obj constructor copy param-block 
     obj 
    ] 

    test: new person [ "John" "Doe" ] 
    probe test 

    make object! [ 
     Person: func [names][ 
      Self/FirstName: names/1 
      Self/LastName: names/2 
     ] 
     FirstName: "John" 
     LastName: "Doe" 
    ] 

    test2: new person [ "Dick" "Nixon" ] 
    probe test2 

    make object! [ 
     Person: func [names][ 
      Self/FirstName: names/1 
      Self/LastName: names/2 
     ] 
     FirstName: "Dick" 
     LastName: "Nixon" 

]