Was passiert, wenn ich DOES zweimal anrufe?

Question

John Hayes' ANS Forth Testsuite enthält Tests, die wie folgt aussehen:

: WEIRD: CREATE DOES> 1 + DOES> 2 + ; 
WEIRD: W1 
W1 

Ich bin eher an ratlos, genau das, was diese tun soll. Die ANS Forth Specification auf DOES> ist weitgehend undurchdringlich.

Von der Test-Suite zu lesen, es sieht aus wie es um den ersten Anruf zu DOES> ist erwartet W1, zu modifizieren, aber dann, dass W1 aktiviert die SekundenDOES> aufrufen. Ich nehme an, dass die zweite Funktion auf dem Wort basiert, das durch den letzten Aufruf an CREATE definiert wurde, aber das ist bereits DOES> ified, also bin ich mir nicht sicher, was das tun soll.

gforth besteht die Testsuite, daher scheinen die Tests gültig zu sein; aber mein Haustier Forth-Interpreter nicht, und ich muss herausfinden, wie es funktioniert ...

Answer 1

Der zweite Anruf an DOES> ändert auch W1.

WEIRD: erstellt W1 mit einer Laufzeitaktion von 1 + DOES> 2 +. Der erste Aufruf an W1 setzt die Laufzeit auf 2 +.

Dies wird deutlicher, wenn Sie den Code ändern, um etwas zu drucken, z.

: weird: create does> drop ." ONE" does> drop ." TWO" ; ok 
weird: w1 ok 
w1 ONE ok 
w1 TWO ok 
w1 TWO ok 
w1 TWO ok 

Die Erklärung dafür ist, dass DOES> arbeitet immer auf dem neuesten definierten Wort.