About the local variable patch

[Programmingkid]

I ran Mark's local variable patch thru all these test and it past.

: myword { ; dog cat }
    4 -> dog
    33 -> cat
    cr ." dog = " dog .
    cr ." cat = " cat . 
;

4
: myword2 { hamster }
cr ." hamster = " hamster . 
;

8
: myword3 { car ; truck }
 5 -> truck
cr ." truck = " truck . 
cr ." car = " car . 
;

9 10
: myword4 { bevus butthead ; homer }
cr ." bevus = " bevus .
3 -> homer
cr ." homer = " homer .
cr ." butthead = " butthead . 
;

100 1 do I I 1 + myword4 loop

: myword6 { ; bart }
19 -> bart
cr ." bart in myword6 = " bart .
;

: myword5 { ; bart }
10 -> bart
myword6
cr ." bart in myword5 = " bart .
;

Good job :)

[Mark Cave-Ayland]

On 09/11/12 15:27, Programmingkid wrote:
> I ran Mark's local variable patch thru all these test and it past.
>
> : myword { ; dog cat }
>    4 ->  dog
>    33 ->  cat
>    cr ." dog = " dog .
>    cr ." cat = " cat .
> ;
>
> 4
> : myword2 { hamster }
> cr ." hamster = " hamster .
> ;
>
> 8
> : myword3 { car ; truck }
>   5 ->  truck
> cr ." truck = " truck .
> cr ." car = " car .
> ;
>
> 9 10
> : myword4 { bevus butthead ; homer }
> cr ." bevus = " bevus .
> 3 ->  homer
> cr ." homer = " homer .
> cr ." butthead = " butthead .
> ;
>
> 100 1 do I I 1 + myword4 loop
>
> : myword6 { ; bart }
> 19 ->  bart
> cr ." bart in myword6 = " bart .
> ;
>
> : myword5 { ; bart }
> 10 ->  bart
> myword6
> cr ." bart in myword5 = " bart .
> ;
>
> Good job :)

Thanks for the testing. I'll see if anyone else has any comments, and 
commit over the weekend if it all seems okay.

ATB,

Mark.