Add DOT short name for full stop

gilch · Oct 30, 2024 · 07d84fb · 07d84fb
1 parent 058dc75
commit 07d84fb
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/docs/lissp_whirlwind_tour.rst b/docs/lissp_whirlwind_tour.rst
@@ -531,8 +531,8 @@ Lissp Whirlwind Tour
    'QzDIGITxFOUR_2'
 
    #> '\.
-   >>> 'QzFULLxSTOP_'
-   'QzFULLxSTOP_'
+   >>> 'QzDOT_'
+   'QzDOT_'
 
    #> '\\
    >>> 'QzBSOL_'

diff --git a/src/hissp/munger.py b/src/hissp/munger.py
@@ -100,7 +100,7 @@ def _munge_part(part):
         "+": "PLUS",
         # COMMA is fine.
         "-": "H",  # Hyphen-minus
-        # Full stop reserved for imports and attributes.
+        ".": "DOT",  # Doesn't munge by default.
         "/": "SOL",
         # Digits only munge if first character.
         # COLON is fine.

diff --git a/tests/test_reader.py b/tests/test_reader.py
@@ -157,7 +157,7 @@ def test_reader_missing(self):
             next(self.reader.reads("(x#)"))
 
     def test_reader_initial_dot(self):
-        msg = r"unknown tag 'QzFULLxSTOP_foo'"
+        msg = r"unknown tag 'QzDOT_foo'"
         with self.assertRaisesRegex(SyntaxError, msg):
             next(self.reader.reads(".foo# 0"))
 
@@ -289,7 +289,7 @@ def test_tag_under_arity(self):
         ("quote",
          "QzTILDE_QzBANG_QzAT_QzHASH_QzDOLR_QzPCENT_QzHAT_QzET_QzSTAR_QzLPAR_QzRPAR__"
          "QzPLUS_QzLCUB_QzRCUB_QzVERT_QzCOLON_QzQUOT_QzLT_QzGT_QzQUERY_QzGRAVE_QzH_QzEQ_"
-         "QzLSQB_QzRSQB_QzBSOL_QzSEMI_QzAPOS_QzCOMMA_QzFULLxSTOP_QzSOL_",)
+         "QzLSQB_QzRSQB_QzBSOL_QzSEMI_QzAPOS_QzCOMMA_QzDOT_QzSOL_",)
     ],
 
     R"""\1 \12 \[] \(\) \{} \[] \: \; \# \` \, \' \" \\ \\. \. \ """: [
@@ -308,7 +308,7 @@ def test_tag_under_arity(self):
         "QzQUOT_",
         "QzBSOL_",
         'QzBSOL_.',
-        'QzFULLxSTOP_',
+        'QzDOT_',
         "QzSPACE_",
     ],