From e97771961afcfc370f0fb103dc429410ddcd8ad5 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Wed, 22 Apr 2026 12:59:16 +1000
Subject: move ioctl to io section, .free

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

diff --git a/sanctuary.fs b/sanctuary.fs
index dc2fc8c..6e54b81 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -214,6 +214,7 @@ false value nonaming
 : sys-write  1 syscall3 ;
 : sys-open  2 syscall3 ;
 : sys-close  3 syscall1 ;
+: ioctl  16 syscall3 ; \ todo doc
 
 : type  swap stdout sys-write drop ;
 : warn  swap stderr sys-write drop ;
@@ -652,8 +653,6 @@ hex
 decimal
 \ }}}
 
-: ioctl  16 syscall3 ;
-
 : ESC  27 emit ;
 : CSI  ESC ." [" ;
 
@@ -694,9 +693,12 @@ decimal
 previous definitions
 \ }}}
 
+\ todo doc
+: .free  bytes-used u. ." of " bytes-allocated u. ." bytes used (" bytes-free (.) type ."  free)" cr ;
+
 \ todo doc
 0 constant version
 : welcome  ." sanctuary: a 64 bit forth for linux, version " version u. cr ;
 
 :noname  quit ; handler !
-welcome quit bye
+welcome .free quit bye
-- 
cgit v1.2.3