-
Notifications
You must be signed in to change notification settings - Fork 9
Open
@drom
Description
The following code:
: GS1 S" SOURCE" 2DUP EVALUATE
>R SWAP >R = R> R> = ;
T{ GS1 -> <TRUE> <TRUE> }TYields the error:
Error: in line: 790 T{ GS1 -> <TRUE> <TRUE> }T expected [ 0, 0 ] to deeply equal [ -1, -1 ].
The code for SOURCE is clearly wrong: https://github.com/drom/forth/blob/9b1d208fd8c1d15619460a808c7a8b4740da03d2/lib/core.js#L223-L227
// 6.1.2216 SOURCE def('source', function () { this.dpush(this.here); this.dpush(this.io.last - this.io.ptr); }, cxt);
Clearly one of the longest ANS94 descriptions:
