Forth: rewrite simpler defword macro

adumont · Feb 27, 2022 · 98d5823 · 98d5823
1 parent 18032a9
commit 98d5823
Showing 1 changed file with 3 additions and 11 deletions.
diff --git a/forth.s b/forth.s
@@ -34,19 +34,11 @@ __word_0 = 0
 	.ident (.sprintf("__word_%u", __word_last + 1)):
 
 	.addr .ident(.sprintf("__word_%u", __word_last))
-	; this ifblank cascading can probably be enhanced...
+
 	.ifnblank strname
-		.ifnblank flags
-			CString strname, flags
-		.else
-			CString strname
-		.endif
+		CString strname, flags
 	.else
-		.ifnblank flags
-			CString label, flags
-		.else
-			CString label
-		.endif
+		CString label, flags
 	.endif
 
 	__word_last .set __word_last + 1