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

Switch #f+s to FOR..NEXT.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-30 15:44:49 -07:00
parent 94bb09481d
commit a2aa0c50e2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
common/floats.fs
View File

@ -24,8 +24,8 @@
: set-precision ( n -- ) to precision ; : set-precision ( n -- ) to precision ;
internals definitions internals definitions
: #f+s ( r -- ) fdup precision 0 ?do 10e f* loop : #f+s ( r -- ) fdup precision for aft 10e f* then next
precision 0 ?do fdup f>s 10 mod [char] 0 + hold 0.1e f* loop precision for aft fdup f>s 10 mod [char] 0 + hold 0.1e f* then next
[char] . hold fdrop f>s #s ; [char] . hold fdrop f>s #s ;
forth definitions internals forth definitions internals