6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-19 03:27:29 +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
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 // Execute code in CFA
// //
def execword(dentry)#0 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() when conio:keypressed()
is $83 // CTRL-C is $83 // CTRL-C
getc // Clear KB getc // Clear KB
@@ -1043,6 +1038,11 @@ def interpret#0
dentry = find(inchars, inlen) dentry = find(inchars, inlen)
if dentry if dentry
if ^_ffa_(dentry) & imm_flag or not (state & comp_flag) 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) execword(dentry)
else else
compword(dentry) compword(dentry)