fix parsing |foo bar|

Author: jcubic

README.md

@@ -7,7 +7,7 @@
 [![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.19-blue.svg)](https://www.npmjs.com/package/@jcubic/lips)
 ![1.0.0 Complete](https://img.shields.io/github/milestones/progress-percent/jcubic/lips/1?label=1.0.0%20Complete)
 [![Build and test](https://github.com/jcubic/lips/actions/workflows/build.yaml/badge.svg?branch=devel&event=push)](https://github.com/jcubic/lips/actions/workflows/build.yaml)
-[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&743f5850f78d354efa7dc6171c26e2ad)](https://coveralls.io/github/jcubic/lips?branch=devel)
+[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&da41214f6f783c85d7b70e67cf72dd49)](https://coveralls.io/github/jcubic/lips?branch=devel)
 [![Join Gitter Chat](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/jcubic/lips)
 ![NPM Download Count](https://img.shields.io/npm/dm/@jcubic/lips)
 ![JSDelivr Download count](https://img.shields.io/jsdelivr/npm/hm/@jcubic/lips)

dist/lips.cjs

@@ -1305,6 +1305,8 @@ Lexer.regex_class = Symbol.for('regex_class');
 Lexer.character = Symbol.for('character');
 Lexer.bracket = Symbol.for('bracket');
 Lexer.b_symbol = Symbol.for('b_symbol');
+Lexer.b_symbol_ex = Symbol.for('b_symbol_ex');
+
 Lexer.b_comment = Symbol.for('b_comment');
 Lexer.i_comment = Symbol.for('i_comment');
 Lexer.l_datum = Symbol.for('l_datum');
@@ -1373,8 +1375,8 @@ Lexer._rules = [
     [/\|/, null, null, null, Lexer.b_symbol],
     [/\s/, null, null, Lexer.b_symbol, Lexer.b_symbol],
     [/\|/, null, Lexer.boundary, Lexer.b_symbol, null],
-    [/\|/, null, /\S/, Lexer.b_symbol, Lexer.b_symbol],
-    [/\S/, null, Lexer.boundary, Lexer.b_symbol, null]
+    [/\|/, null, /\S/, Lexer.b_symbol, Lexer.b_symbol_ex],
+    [/\S/, null, Lexer.boundary, Lexer.b_symbol_ex, null]
 ];
 // ----------------------------------------------------------------------
 Lexer._brackets = [

dist/lips.esm.js

@@ -148,7 +148,11 @@
         (t.is '|\r| (string->symbol "\r"))
         (t.is '|\s| 's)
         (t.is '|\x3BB;| 'λ)
-        (t.is '|\x9;\x9;| '|\t\t|)))
+        (t.is '|\x9;\x9;| '|\t\t|)
+        ;; found in
+        ;; https://docs.scheme.org/surveys/reader-vertical-bar-concatenated-with-number/
+        (t.is (lips.tokenize "|1|aaa |a|b|c| |foo bar|")
+              #("|1|aaa" "|a|b|c|" "|foo bar|"))))
 
 (test "core: dot comma"
       (lambda (t)