d023f49af917 — Arne Babenhauserheide 2 years ago 
support ., as plain ,
patch browse 
1 files changed, 5 insertions(+), 0 deletions(-)

M enter.w

M enter.w +5 -0
@@ 175,6 175,9 @@ define-syntax say-words
                      : equal? w '..
                        show "."
                        show " "
+                     : equal? w '.,
+                       show ","
+                       show " "
                      else
                        show : ->string w
                        show " "

          
@@ 187,6 190,8 @@ define-syntax say-words
                        . #f
                      : equal? w '..
                        show "."
+                     : equal? w '.,
+                       show ","
                      else
                        show : ->string w
                  say-words words ...