X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;h=c2019d45a025bae66aaf3879d042b312d1bf7fb4;hp=acd6c4516bd66d76b24610f236cbb2d109ab7758;hb=231a3650050eba3a478b814b149963eb3e0625e7;hpb=c432e602660b29c8dce014ea506d8bba2db11d00

diff --git a/src/forth.jl b/src/forth.jl
index acd6c45..c2019d4 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -968,6 +968,14 @@ NUMTIB, NUMTIB_CFA = defNewVar("#TIB", 0)
 FIB_CFA = defConst("FIB", FIB)
 NUMFIB, NUMFIB_CFA = defNewVar("#FIB", 0)
 
+IB_CFA = defPrimWord("IB", () -> begin
+    pushPS(mem[SOURCE_ID] == 0 ? TIB : FIB)
+end)
+
+NUMIB_CFA = defPrimWord("#IB", () -> begin
+    pushPS(mem[SOURCE_ID] == 0 ? NUMTIB : NUMFIB)
+end)
+
 TOIN, TOIN_CFA = defNewVar(">IN", 0)
 
 SOURCE_ID, SOURCE_ID_CFA = defNewVar("SOURCE-ID", 0)