From 29bec09ee2dfe8d29a32c605daca50d5d7661f0e Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Fri, 20 Mar 2026 12:10:36 +1100
Subject: base words

---
 sanctuary.fs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'sanctuary.fs')

diff --git a/sanctuary.fs b/sanctuary.fs
index e40527c..9ed0e61 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -1,3 +1,8 @@
 : \  10 parse 2drop ; immediate \ test
 : (  [ char ) ] literal parse 2drop ; immediate ( test )
+
+: binary  2 base ! ;
+: octal  8 base ! ;
+: decimal  10 base ! ;
+: hex  16 base ! ;
 bye
-- 
cgit v1.2.3