From 07d84fbcb1801d8fa69ea6686ff6fb063a9a1318 Mon Sep 17 00:00:00 2001 From: gilch Date: Sun, 27 Oct 2024 16:06:09 -0600 Subject: [PATCH] Add DOT short name for full stop --- docs/lissp_whirlwind_tour.rst | 4 ++-- src/hissp/munger.py | 2 +- tests/test_reader.py | 6 +++--- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/docs/lissp_whirlwind_tour.rst b/docs/lissp_whirlwind_tour.rst index f3f9aa95..cc6a3583 100644 --- 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 index 8a04207c..e8260cb3 100644 --- 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 index b4f497b2..6af16171 100644 --- 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_", ],