add extra:syntax.terse, for bitwise ops. Addresses #2641.

[factor.git] / misc / fuel / strange-syntax.factor

diff --git a/misc/fuel/strange-syntax.factor b/misc/fuel/strange-syntax.factor
index 32d04f6ee524ffeaf6b45e72afd41a436a90ee5b..ee05308e74350298beee33aed9248b4e80945561 100644 (file)
--- a/misc/fuel/strange-syntax.factor
+++ b/misc/fuel/strange-syntax.factor
@@ -76,6 +76,7 @@ ID-SYNTAX ID-SYNTAX
 
 ! ! Numbers
 { -55 -0x10 100,00 1,000,000 0x2000,0000 0b01 } drop
+{ -0x100_000 100_00 1_000_000 0x2000_0000 0b0_1 } drop
 
 ! ! Containers
 V{ 1 2 3 } drop
@@ -100,3 +101,6 @@ COLOR: #ffffff COLOR: green NAN: 1234 CHAR: m ALIEN: 93
 
 PRIMITIVE: one ( a -- b )
 PRIMITIVE: two ( c -- d )
+
+: `word ( -- ) ;
+: word ( -- ) ; ! this isn't strange, just for contrast with the above