Fix corner case for IS ITC vs PBC

2024-06-12 14:29:54 +00:00 · 2024-02-05 08:17:48 -08:00 · 2024-02-05 08:17:48 -08:00 · 13f88a8ad3
commit 13f88a8ad3
parent f25f4c6dc7
6 changed files with 1 additions and 0 deletions
--- a/images/apple/PLASMA-2.1-INST.po
+++ b/images/apple/PLASMA-2.1-INST.po
--- a/images/apple/PLASMA-2.1.po
+++ b/images/apple/PLASMA-2.1.po
--- a/images/apple/PLASMA2.2mg
+++ b/images/apple/PLASMA2.2mg
--- a/images/apple/PLFORTH.PO
+++ b/images/apple/PLFORTH.PO
--- a/images/apple/apple3.hd
+++ b/images/apple/apple3.hd
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@ -1336,6 +1336,7 @@ def _is_(a)#0
      *_cfa_(dentry) = @_dodefer_
      *_pfa_(dentry) = a
    else // comp_pbc_flag
+      *_cfa_(dentry)       = _cfa_(dentry)
      ^_pfa_(dentry)       = JMP
      *(_pfa_(dentry) + 1) = *_cfa_(a)
    fin