From caebdc0a861a69b538a95f439b349146a803bff4 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Sun, 26 Apr 2020 08:08:10 -0500
Subject: short version of <ws< in tutorial

---
 examples/Tutorial.org | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/examples/Tutorial.org b/examples/Tutorial.org
index fcb2e4e..6a9fe9f 100644
--- a/examples/Tutorial.org
+++ b/examples/Tutorial.org
@@ -828,13 +828,8 @@ cbeo.
 
 (in-package :parzival-json)
 
-(<<def <ws<                    ; define parsers with <<def
-       (<<*                    ; zero or more, the Kleene star, reminiscent of regex
-         (<<or                 ; any of the the following
-           (<<char #\Space)    ; parse exactly one character
-           (<<char #\Linefeed)
-           (<<char #\Return)
-           (<<char #\Tab))))
+(<<def <ws<
+       (<<* (<<any-char (concatenate 'string '(#\Space #\Linefeed #\Return #\Tab)))))
 
 (<<def <true< (<<map-to t (<<string "true")))
 (<<def <false< (<<map-to nil (<<string "false")))
-- 
cgit v1.2.3