1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-01 03:41:34 +00:00

Had to screw up _interpret_. Reverted and update images

This commit is contained in:
David Schmenk 2024-02-03 20:15:19 -08:00
parent ee5c66e710
commit cdfb59846f
5 changed files with 7 additions and 9 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -1006,9 +1006,7 @@ end
// Compile a word/literal into the dictionary: ITC and PBC
//
def _compword_(dentry)#0
if ^_ffa_(dentry) & imm_flag
_execword_(dentry)
elsif ^_ffa_(dentry) & interponly_flag
if ^_ffa_(dentry) & interponly_flag
puts("INTERP only word\n")
_quit_
elsif state & comp_itc_flag
@ -1068,15 +1066,15 @@ def _interpret_#0
inchars, inlen = nextword(' ')
dentry = find(inchars, inlen)
if dentry
if state & comp_flag
_compword_(dentry)
else
if ^_ffa_(dentry) & componly_flag
if not state & comp_flag or ^_ffa_(dentry) & imm_flag
if not state & comp_flag and ^_ffa_(dentry) & componly_flag
puts(dentry)
puts(" : Compile only word\n")
_quit_
fin
_execword_(dentry)
else
_compword_(dentry)
fin
else
value, valid = _isnum_(inchars, inlen)
@ -1806,7 +1804,7 @@ def _show_#0
break
otherwise
puts(w)
wend
wend
else
puts(w)
fin
@ -1921,7 +1919,7 @@ def typelist(typestr, typemask, type)#0
tab = ^d
else
puts(" ")
fin
fin
puts(d)
if conio:keypressed(); conio:getkey(); conio:getkey(); fin
fin