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

Tweak

Browse Source
This commit is contained in:
Brad Nelson
2024-11-08 20:17:08 -08:00
parent abd9118fb3
commit b3ca67eaf6
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
examples/complex.fs
View File

@ -36,8 +36,9 @@ also recognizers also internals
: z@ ( a -- z ) dup sf@ sfloat+ sf@ ; : z@ ( a -- z ) dup sf@ sfloat+ sf@ ;
: z! ( a -- z ) dup sfloat+ sf! sf! ; : z! ( a -- z ) dup sfloat+ sf! sf! ;
: zconstant create fswap sf, sf, does> dup sf@ sfloat+ sf@ ; : z, ( z -- ) fswap sf, sf, ;
: zvariable create 0i0 fswap sf, sf, ; : zconstant create z, does> z@ ;
: zvariable create 0i0 z, ;
: f>r r> fp@ ul@ fdrop >r >r ; : f>r r> fp@ ul@ fdrop >r >r ;
: r>f r> r> fdup fp@ l! >r ; : r>f r> r> fdup fp@ l! >r ;