Commit 6507afdb authored by bp's avatar bp
Browse files

Fixed begin-structure

git-svn-id: https://forth-ev.de/repos/bigforth@1633 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 66330390
......@@ -76,7 +76,7 @@ last @ to keycode-end
\ structures
: begin-structure ( -- here ) $AAAAAAAA Constant lastcfa @ 4 + ;
: begin-structure ( -- here ) $AAAAAAAA Constant lastcfa @ 4 + 0 ;
: end-structure ( here size -- ) swap ! ;
: +field ( n1 n2 "name" -- n3 )
>r >r : r@ postpone Literal postpone + postpone ; macro r> r> + ;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment