From 11c604d8652f2c11eea79fd9d54bd6c25ec2a0fb Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Sat, 30 Apr 2005 04:17:02 +0000
Subject: [PATCH] fix parser-combinator documentation

---
 contrib/parser-combinators/parser-combinators.html | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/parser-combinators/parser-combinators.html b/contrib/parser-combinators/parser-combinators.html
index fe63b11631..83429080e8 100644
--- a/contrib/parser-combinators/parser-combinators.html
+++ b/contrib/parser-combinators/parser-combinators.html
@@ -141,7 +141,7 @@ character code '53'.</p>
 <pre class="code">
   (1) : digit-list>number ( list -- number )
          #! Converts a list of digits to a number
-         [ >digit ] map cat dup string-length 0 = [ 
+         [ >digit ] map >string dup empty? [ 
            drop 0 
          ] [
 	   str>number