6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-03 19:31:10 +00:00
Code Issues Projects Releases Wiki Activity

Can't put test for componly in execword

Browse Source
This commit is contained in:
David Schmenk 2024-01-08 11:37:25 -08:00
parent 9587423c46
commit eefd9ba2dd
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

10
src/toolsrc/plforth.pla
View File

@ -935,11 +935,6 @@ end
// Execute code in CFA
//
def execword(dentry)#0
if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
puts(dentry)
puts(" : Compile only word\n")
_quit_
fin
when conio:keypressed()
is $83 // CTRL-C
getc // Clear KB
@ -1043,6 +1038,11 @@ def interpret#0
dentry = find(inchars, inlen)
if dentry
if ^_ffa_(dentry) & imm_flag or not (state & comp_flag)
if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
puts(dentry)
puts(" : Compile only word\n")
_quit_
fin
execword(dentry)
else
compword(dentry)