feat(boot): add -ROT <= >= gforth extensions

Non-standard but ubiquitous words; absence aborted otherwise-valid gforth programs with unknown-word errors.
2026-07-18 15:40:39 +02:00
parent d5acdc0e7b
commit 35b78193fd
2 changed files with 33 additions and 0 deletions
@@ -72,6 +72,19 @@
    1-
  REPEAT ;

+\ ---------------------------------------------------------------
+\ Common extensions (not in Forth 2012, gforth-compatible)
+\ ---------------------------------------------------------------
+
+\ -ROT ( x1 x2 x3 -- x3 x1 x2 )  rotate top item to third place
+: -ROT  ROT ROT ;
+
+\ <= ( n1 n2 -- flag )  true if n1 <= n2 (signed)
+: <=  > 0= ;
+
+\ >= ( n1 n2 -- flag )  true if n1 >= n2 (signed)
+: >=  < 0= ;
+
 \ ---------------------------------------------------------------
 \ Phase 2: Double-cell arithmetic
 \ ---------------------------------------------------------------