class variables not working

Attached is a sample source code. Earlier when I posted about floating-point
members not working in classes, it appears much broader now. Run the
attachment to see what I mean.
If this could be fixed, it would make my life much better, as my current
project really needs this to work.

Jeff

jma_at_mfire.com
http://www.simforth.com

-- Attached file included as plaintext by Ecartis --
-- File: sample.f

\ sample code that fails

class my-point
        create x 1 cells allot
        create y 1 cells allot

        : set ( x y -- ) y ! x ! ;
        : show ( -- ) x @ . y @ . cr ;
end-class

my-point builds p1
my-point builds p2

1 2 p1 set
3 4 p2 set

p1 show
p2 show

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Thu Sep 18 2003 - 07:18:09 PDT