diff options
| -rw-r--r-- | jefs.fs | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -7,6 +7,7 @@ : decimal 10 base ! ; : hex 16 base ! ; +: nip swap drop ; : tuck swap over ; hex @@ -53,7 +54,9 @@ variable hld : #s begin # dup 0= until ; : #> drop hld @ pad over - ; -: u. <# #s #> say space ; -: . dup abs <# #s swap sign #> say space ; +: (u.) <# #s #> ; +: u. (u.) say space ; +: (.) dup abs <# #s swap sign #> ; +: . (.) say space ; bye |
