Trying out TEST.FTH and TESTER.FTH (ftp-ed from the site
Andrew McKewan mentioned) presented some unexpected problems
with CLASS.FTH.

All but one of them have to do with the fact that the files have
some lines wrapped at inconvenient locations (changing their 
meaning to a Forth interpreter). I give the corrections below.
The original "->" overwrote every cell available to iForth.

The serious problem is that when a method name is chosen that is 
already the name of an existing Forth word, the code for the new
method is not generated (or not findable). Instead, the original 
Forth word executes whenever you try to use the presumed method.

In my Forth the word Exec: already exists, that's how I found out.
Try : Put: CR ." Oeps." ; and load class.fth to see what will happen.

I think this is a problem that should be removed, or at least
flagged with an error message.

-marcel

---------------------------------------------------------------
Comparing files TEST.FTH and test.old
****** TEST.FTH

\ ======================================================================
TESTING LATE BINDING
****** test.old

\ ===============================================================
=======
TESTING LATE BINDING
******

****** TEST.FTH
    :M To:  ( value index -- )  To: a1  ;M
    :M Fill:  Fill: a1  ;M

****** test.old
    :M To:  ( value index -- )  To: a1  ;M
    :M Fil
l:  Fill: a1  ;M

******


****** TEST.FTH
{ : T14  5 At: [ POBJ ] ; T14 -> 99 }
{ : T15  5 POBJ At: Array ; T15 -> 99 }  ( class binding )
{ : T16  POBJ RELEASE ; T16 -> }
****** test.old
{ : T14  5 At: [ POBJ ] ; T14 -> 99 }
{ : T15  5 POBJ At: Array ; 
T15 -> 99 }  ( class binding )
{ : T16  POBJ RELEASE ; T16 -> }
******


Comparing files TESTER.FTH and tester.old
****** TESTER.FTH

: ->            \ ( ... -- ) RECORD DEPTH AND CONTENT OF STACK.
                \ kills Forth when stack did underflow!
   DEPTH DUP ACTUAL-DEPTH !             \ RECORD DEPTH
****** tester.old

: ->            \ ( ... -- ) RECORD DEPTH AND CONTENT OF STACK
.
   DEPTH DUP ACTUAL-DEPTH !             \ RECORD DEPTH
******

