basic: fix test for macro in eval_ast merge

asarhaddon · Nov 13, 2024 · af8d7fc · af8d7fc
1 parent 44503b5
commit af8d7fc
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/impls/basic/step8_macros.in.bas b/impls/basic/step8_macros.in.bas
@@ -392,7 +392,7 @@ SUB EVAL
       IF T=14 THEN F=Z%(F+1):GOSUB TYPE_F
       IF T<9 OR T>11 THEN ER=-1:E$="apply of non-function":GOTO EVAL_RETURN
 
-      IF T<>11 THEN GOTO EVAL_DO_MACRO
+      IF T=11 THEN GOTO EVAL_DO_MACRO
 
       REM evaluate the arguments
       Q=F:GOSUB PUSH_Q

diff --git a/impls/basic/step9_try.in.bas b/impls/basic/step9_try.in.bas
@@ -425,7 +425,7 @@ SUB EVAL
       IF T=14 THEN F=Z%(F+1):GOSUB TYPE_F
       IF T<9 OR T>11 THEN ER=-1:E$="apply of non-function":GOTO EVAL_RETURN
 
-      IF T<>11 THEN GOTO EVAL_DO_MACRO
+      IF T=11 THEN GOTO EVAL_DO_MACRO
 
       REM evaluate the arguments
       Q=F:GOSUB PUSH_Q

diff --git a/impls/basic/stepA_mal.in.bas b/impls/basic/stepA_mal.in.bas
@@ -425,7 +425,7 @@ SUB EVAL
       IF T=14 THEN F=Z%(F+1):GOSUB TYPE_F
       IF T<9 OR T>11 THEN ER=-1:E$="apply of non-function":GOTO EVAL_RETURN
 
-      IF T<>11 THEN GOTO EVAL_DO_MACRO
+      IF T=11 THEN GOTO EVAL_DO_MACRO
 
       REM evaluate the arguments
       Q=F:GOSUB PUSH_Q