mirror of
https://github.com/dschmenk/PLASMA.git
synced 2025-03-20 18:31:13 +00:00
Had to screw up _interpret_. Reverted and update images
This commit is contained in:
parent
ee5c66e710
commit
cdfb59846f
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user