From 7ee360b6c2b2f30b1fc087bd394b55ab27005d55 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Fri, 18 Dec 2020 22:07:42 +0100
Subject: [PATCH] Fix broken platform-specific commenting-out mechanism around
 (CX for Commander X16

---
 6502/C64/src/vf-finalize.fth | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/6502/C64/src/vf-finalize.fth b/6502/C64/src/vf-finalize.fth
index e9c659e..6a6b511 100644
--- a/6502/C64/src/vf-finalize.fth
+++ b/6502/C64/src/vf-finalize.fth
@@ -11,17 +11,21 @@ Target
 
 Forth also definitions
 
+(C16 : (16 ) (C64 : (64 ) (X16 : (CX ) ; immediate
+
 (C16 : (64 ) \ jumps belhind C)
 (C64 : (16 )
-(X16 : (CX )
+(X16 : (64 )
  BEGIN name count dup 0=
  abort" C) missing"  2 = >r
  @ [ Ascii C Ascii ) $100 * + ] Literal
  = r> and UNTIL ; immediate
 
-: C)  ; immediate
+(C16 ' (64 alias (CX immediate )
+(C64 ' (16 alias (CX immediate )
+(X16 ' (64 alias (16 immediate )
 
-(C16 : (16 ) (C64 : (64 ) (X16 : (CX ) ; immediate
+: C)  ; immediate
 
 : forth-83 ;  \ last word in Dictionary