From 5ee8f7e01dfbcb03c705f8bb6f252c2f1b829b46 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 26 Oct 2023 19:54:29 -0400
Subject: add .R PAD U.R U> UNUSED WITHIN
---
forth/core.fth | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'forth/core.fth')
diff --git a/forth/core.fth b/forth/core.fth
index 360d269..a4bac26 100644
--- a/forth/core.fth
+++ b/forth/core.fth
@@ -8,7 +8,6 @@
: cells 2 * ;
: . 0 sys ;
-: u. 1 sys ;
: emit 2 sys ;
: 1+ 1 + ;
@@ -229,3 +228,5 @@
if 7 + then 48 + hold ;
: #s begin # 2dup or 0= until ;
: sign 0< if [char] - hold then ;
+
+: u. 0 <# bl hold #s #> type ;
--
cgit v1.2.3