fix a bug in s:WHITESPACE and use it in c:whitespace?

FossilOrigin-Name: d810206fe848fd2e394e4984bbaf3105b977192304af356cb6d062de1adfd82d

RELEASE-NOTES

@@ -6,6 +6,7 @@
 - reduce default image size; max number of open files
 - updated html export for retro sources: averages 7.4% faster conversion, 26% smaller output across my test set
 - use a trick from https://getkiss.org/blog/20191004a to disable requests for a favicon in Atua-WWW
+- fix a bug in s:WHITESPACE and use it in c:whitespace?
 
 In progress:
 

image/retro.forth

@@ -989,7 +989,7 @@ characters that are of some general interest.
 :s:PUNCTUATION     (-s)
   '_!"#$%&'()*+,-./:;<=>?@[\]^`{|}~ $_ over store ;
 's:WHITESPACE d:create
-  #32, #9 , #10 , #13 , #0 ,
+  #32 , #9 , #10 , #13 , #0 ,
 ~~~
 
 I have a few words that correspond to empty versions of the
@@ -1043,13 +1043,7 @@ First are a bunch of words to help identify character values.
 :c:vowel?       (c-f) 'aeiouAEIOU swap s:contains-char? ;
 :c:consonant?   (c-f)
   dup c:letter? [ c:vowel? not ] [ drop FALSE ] choose ;
-
-{{
-  'WS d:create
-    ASCII:SPACE , ASCII:HT , ASCII:LF , ASCII:CR , #0 ,
----reveal---
-  :c:whitespace?  (c-f) &WS swap s:contains-char? ;
-}}
+:c:whitespace?  (c-f) s:WHITESPACE swap s:contains-char? ;
 ~~~
 
 And the inverse forms. (These are included for readability and