izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 17:58:07 +11:00
Code Issues Releases Wiki Activity

Add word "DELW"

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-08 20:40:23 -04:00
parent 2a2e3a64a4
commit b5638d142a
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dictionary.txt
View File

@ -38,6 +38,8 @@ CREATE x -- Create cell named x. Doesn't allocate a PF.
words are *not* executed. words are *not* executed.
COMPILE x -- Meta compiles. Kind of blows the mind. See below. COMPILE x -- Meta compiles. Kind of blows the mind. See below.
CONSTANT x n -- Creates cell x that when called pushes its value CONSTANT x n -- Creates cell x that when called pushes its value
DELW x -- Delete word x. If it shadows another definition,
that definition is unshadowed.
DOES> -- See description at top of file DOES> -- See description at top of file
IMMED? a -- f Checks whether wordref at a is immediate. IMMED? a -- f Checks whether wordref at a is immediate.
IMMEDIATE -- Flag the latest defined word as immediate. IMMEDIATE -- Flag the latest defined word as immediate.

4
forth/core.fs
View File

@ -132,3 +132,7 @@
LOOP LOOP
2DROP 2DROP
; ;
: DELW
' 1 - 0 SWAP C!
;