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

Adding f.s and fix typo.

Browse Source
This commit is contained in:
Brad Nelson
2021-12-27 00:27:05 -08:00
parent 3d026f4f31
commit 056abdea90
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/floats.fs
View File

@ -46,5 +46,7 @@ forth definitions internals
: #fs ( r -- ) fdup f0< if fnegate #f+s [char] - hold else #f+s then ; : #fs ( r -- ) fdup f0< if fnegate #f+s [char] - hold else #f+s then ;
: f. ( r -- ) <# #fs #> type space ; : f. ( r -- ) <# #fs #> type space ;
: f.s ." <" fdepth n. ." > "
fdepth 0 max for aft fp@ r@ sfloats - sf@ f. then next ;
forth definitions forth definitions

4
ueforth/site/common.html
View File

@ -179,11 +179,13 @@ AFLITERAL ( r -- )
FLITERAL ( r -- ) IMMEDIATE FLITERAL ( r -- ) IMMEDIATE
FCONSTANT ( r "name" ) FCONSTANT ( r "name" )
FVARAIABLE ( "name" ) FVARIABLE ( "name" )
PI ( -- r ) PI ( -- r )
FSQRT ( r r -- r ) FSQRT ( r r -- r )
F.S ( -- ) Print float stack.
</pre> </pre>
<h5>Locals</h5> <h5>Locals</h5>