nip, split u. and . into (u.) and (.) intrnl forms

1 files changed, 5 insertions, 2 deletions

diff --git a/jefs.fs b/jefs.fs
index bbe6160..656463e 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -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