Sync with scsh tree

scsh/lib/char-package.scm

@@ -1,7 +1,7 @@
 ;;; These defs are things for characters *not* in SRFIs 13 & 14.
 ;;; It includes some R5RS defs that are not correct in S48 in a Latin-1 world.
 
-(define-interface char-set-predicates-interface
+(define-interface char-predicates-interface
   (export
    ((char-lower-case?		; R5RS
      char-upper-case?		; R5RS
@@ -24,7 +24,7 @@
      char-ascii?)		(proc (:char) :boolean))))
 
 
-(define-structure char-set-predicates-lib char-set-predicates-interface
+(define-structure char-predicates-lib char-predicates-interface
   (open error-package	; ERROR
 	scsh-utilities	; DEPRECATED-PROC
 	char-set-lib

scsh/lib/cset-obsolete.scm

@@ -6,8 +6,9 @@
 	  chars->char-set		; list->char-set
 	  ascii-range->char-set		; ucs-range->char-set (not exact)
 	  predicate->char-set		; char-set-filter (not exact)
-	  ->char-set			; no longer handles a predicate
+	  ;->char-set			; no longer handles a predicate
 	  char-set-every?		; char-set-every
+	  char-set-any?			; char-set-any
 
 	  char-set-invert		; char-set-complement
 	  char-set-invert!		; char-set-complement!
@@ -38,13 +39,16 @@
 		       "Change code to use CHAR-SET-FILTER."))
     (define char-set-every?
       (deprecated-proc char-set-every 'char-set-every?
-		       "Use CHAR-SET-EVERYyn instead."))
+		       "Use CHAR-SET-EVERY instead."))
+    (define char-set-any?
+      (deprecated-proc char-set-every 'char-set-any?
+		       "Use CHAR-SET-ANY instead."))
     (define char-set-invert
       (deprecated-proc char-set-complement 'char-set-invert
-		       "Use CHAR-SET-COMPLEMENTyn instead."))
+		       "Use CHAR-SET-COMPLEMENT instead."))
     (define char-set-invert!
       (deprecated-proc char-set-complement! 'char-set-invert!
-		       "Use CHAR-SET-COMPLEMENT!yn instead."))
+		       "Use CHAR-SET-COMPLEMENT! instead."))
 
     (define char-set:alphabetic		char-set:letter)
     (define char-set:numeric		char-set:digit)

scsh/scsh-package.scm

@@ -372,7 +372,7 @@
 ;		      scsh-dbm-interface
 		      (export repl)
 		      awk-interface
-		      char-set-predicates-interface; Urk -- Some of this is R5RS!
+		      char-predicates-interface; Urk -- Some of this is R5RS!
 		      obsolete-char-set-interface
 		      )
 
@@ -387,7 +387,7 @@
 ;	dbm
 	awk-package
 	field-reader-package
-	char-set-predicates-lib	; Urk -- Some of this is R5RS!
+	char-predicates-lib	; Urk -- Some of this is R5RS!
 	dot-locking
 	scheme)