From 206cff5fc88231d06ec2465873814da1f85e2b00 Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Thu, 20 Jul 2017 11:02:22 +0200 Subject: Remove unused functions ishexdigit and $cat-comma They are completely unused, and ishexdigit seems even to be implemented in a wrong way, thus let's simply remove them. Signed-off-by: Thomas Huth Signed-off-by: Alexey Kardashevskiy --- slof/fs/base.fs | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'slof') diff --git a/slof/fs/base.fs b/slof/fs/base.fs index 62cfb00..edd474e 100644 --- a/slof/fs/base.fs +++ b/slof/fs/base.fs @@ -59,14 +59,10 @@ CREATE $catpad 400 allot r> dup $catpad + r> swap r@ move r> + $catpad swap ; -\ WARNING: The following two ($cat-comm & $cat-space) are dirty in a sense -\ that they add 1 or 2 characters to str1 before executing $cat +\ WARNING: The following $cat-space is dirty in a sense that it adds one +\ character to str1 before executing $cat. \ The ASSUMPTION is that str1 buffer provides that extra space and it is \ responsibility of the code owner to ensure that -: $cat-comma ( str2 len2 str1 len1 -- "str1, str2" len1+len2+2 ) - 2dup + s" , " rot swap move 2+ 2swap $cat -; - : $cat-space ( str2 len2 str1 len1 -- "str1 str2" len1+len2+1 ) 2dup + bl swap c! 1+ 2swap $cat ; @@ -143,10 +139,6 @@ CONSTANT <2constant> 30 39 between ; -: ishexdigit ( char -- true | false ) - 30 39 between 41 46 between OR 61 66 between OR -; - \ Variant of $number that defaults to decimal unless "0x" is \ a prefix : $dh-number ( addr len -- true | number false ) -- cgit v1.1