Fix the flags to ADDSTORE, SUBSTORE and fix dot-quote so it works again with new...

[rrq/jonesforth.git] / jonesforth.S

diff --git a/jonesforth.S b/jonesforth.S
index 4277547e95f76aed79244fd108fb2008a0d56991..9a67b5dafe37fb8186eda5b5d02a08c0869ed395 100644 (file)
--- 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