X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=jonesforth.S;h=9a67b5dafe37fb8186eda5b5d02a08c0869ed395;hb=163b9cb735045668e51c044db38a98beddbe93f1;hp=4277547e95f76aed79244fd108fb2008a0d56991;hpb=a7db9b5e5c3a2f025463bf84d6701b7892e2e319;p=rrq%2Fjonesforth.git

diff --git a/jonesforth.S b/jonesforth.S
index 4277547..9a67b5d 100644
--- a/jonesforth.S
+++ b/jonesforth.S
@@ -317,13 +317,13 @@ var_\name :
 	push %eax		// push value onto stack
 	NEXT
 
-	defcode "+!",2,ADDSTORE
+	defcode "+!",2,,ADDSTORE
 	pop %ebx		// address
 	pop %eax		// the amount to add
 	addl %eax,(%ebx)	// add it
 	NEXT
 
-	defcode "-!",2,SUBSTORE
+	defcode "-!",2,,SUBSTORE
 	pop %ebx		// address
 	pop %eax		// the amount to subtract
 	subl %eax,(%ebx)	// add it
@@ -943,7 +943,7 @@ buffer:
 			DUP '\"' <>
 		WHILE
 			HERE @ !b	\\ store the character in the compiled image
-			HERE 1 +!	\\ increment HERE pointer by 1 byte
+			1 HERE +!	\\ increment HERE pointer by 1 byte
 		REPEAT
 		DROP		\\ drop the double quote character at the end
 		DUP		\\ get the saved address of the length word