added comment

f119c430 · jwilke · 6fd4f514 · f119c430
Commit f119c430 authored Sep 12, 2001 by jwilke
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

cross.fs cross.fs +2 -1

No files found.
--- a/cross.fs
+++ b/cross.fs
@@ -1043,6 +1043,8 @@ End-Struct addr-struct

 \ Predefined ghosts                                    12dec92py

+Ghost - drop \ need a ghost otherwise "-" would be treated as a number
+
 Ghost 0=                                        drop
 Ghost branch    Ghost ?branch                   2drop
 Ghost (do)      Ghost (?do)                     2drop
@@ -1057,7 +1059,6 @@ Ghost '                                         drop
 Ghost :docol    Ghost :doesjump Ghost :dodoes   2drop drop
 Ghost :dovar					drop
 Ghost over      Ghost =         Ghost drop      2drop drop
-Ghost - drop
 Ghost 2drop drop
 Ghost 2dup drop