alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add +to

Browse Source
This commit is contained in:
Brad Nelson
2021-04-10 07:19:51 -07:00
parent 00e0a36331
commit 04677eb5d0
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ueforth/common/boot.fs
View File

@ -136,7 +136,10 @@ variable handler
( Values ) ( Values )
: value ( n -- ) create , does> @ ; : value ( n -- ) create , does> @ ;
: to ( n -- ) ' >body state @ if aliteral postpone ! else ! then ; immediate : to ( n -- )
' >body state @ if aliteral postpone ! else ! then ; immediate
: +to ( n -- )
' >body state @ if aliteral postpone +! else +! then ; immediate
( Deferred Words ) ( Deferred Words )
: defer ( "name" -- ) create 0 , does> @ dup 0= throw execute ; : defer ( "name" -- ) create 0 , does> @ dup 0= throw execute ;