aforth

commit 3425240dfd5e9ae9c9d218c306ff984f39ce6506
parent 675de2c1122a42c10a4d997d5928d9d3a8fc8bee
Author: Henry Wilson <m3henry@googlemail.com>
Date:   Wed,  2 Aug 2017 14:21:13 +0100

stripped out old immediate flag

Diffstat:
M
compiler.s
 | 
1
-
M
dictionary.s
 | 
2
+-
M
macros.i
 | 
5
-----
M
main.s
 | 
1
-

4 files changed, 1 insertion(+), 8 deletions(-)
diff --git a/compiler.s b/compiler.s
@@ -48,7 +48,6 @@ verb	forth	compnew	"\x3A"				# :
 	const	8
 	do	plus
 	do	ALLOT
-	compile	-1
 	compile	enter
 	endword
 
diff --git a/dictionary.s b/dictionary.s
@@ -28,7 +28,7 @@ verb	forth	FIND
 	do	plus
 	do	STRCMP
 	unless	1f
-		const	24
+		const	16
 		do	plus
 		do	SWAP
 		do	fetch
diff --git a/macros.i b/macros.i
@@ -113,11 +113,6 @@
 .else
 7:	strlit	"\name\()"
 .endif
-.ifb	\immediate
-	.quad	-1
-.else
-	.quad	0
-.endif
 .ifnb	\immediate
 \name\():	\type\()word	\immediate
 .else
diff --git a/main.s b/main.s
@@ -45,7 +45,6 @@ enter:
 
 	.quad	0
 7:	strlit	"COLD"
-	.quad	0
 COLD:	forthword
 _cold:	do	RESETDATA
 	set	LAST	dictionaryhead