Skip to content

Commit

Permalink
Replaced 2VARIABLE FP with CREATE 0 , 0 ,
Browse files Browse the repository at this point in the history
  • Loading branch information
gerryjackson authored Feb 24, 2021
1 parent 11b8b17 commit 608d9bd
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/filetest.fth
Original file line number Diff line number Diff line change
Expand Up @@ -103,7 +103,7 @@ TESTING R/W WRITE-FILE REPOSITION-FILE READ-FILE FILE-POSITION S"

: LINE2 S" Line 2 blah blah blah" ;
: RL1 BUF 100 FID1 @ READ-LINE ;
2VARIABLE FP
CREATE FP 0 , 0 , \ Don't use 2VARIABLE
: DEQ ( d -- f ) ROT = >R = R> AND ; \ Same as D= in Double Number word set

T{ FN1 R/W OPEN-FILE SWAP FID1 ! -> 0 }T
Expand Down

0 comments on commit 608d9bd

Please sign in to comment.