From f7fc54ed5586d26747da4cc1d897ad7db560adc4 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Tue, 15 Mar 2022 16:52:02 +0000
Subject: [PATCH] update glossary html directory handling

FossilOrigin-Name: aee0e406589e215999c195328b317ec936ee69df737e8b5f07e3c3802f525869
---
 tools/glossary.retro | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/tools/glossary.retro b/tools/glossary.retro
index 49eeb2f..5315672 100755
--- a/tools/glossary.retro
+++ b/tools/glossary.retro
@@ -82,10 +82,7 @@ simple code.
 
 ~~~
 {{
-  :skip (n-) [ ASCII:HT s:split drop n:inc ] times ;
-  :select   (n-s)
-    @SourceLine swap skip ASCII:HT s:split nip ;
-
+  :select @SourceLine ASCII:HT s:tokenize swap a:fetch ;
 ---reveal---
 
   #0 { 'name        'dstack     'astack     'fstack