[Scsh-checkins] CVS: scsh/scsh/lib cset-obsolete.scm,1.2,1.3

[Olin Shivers <olin-shivers@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh/scsh/lib
In directory usw-pr-cvs1:/tmp/cvs-serv24081

Modified Files:
        cset-obsolete.scm 
Log Message:
Minor fixup.

Index: cset-obsolete.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/lib/cset-obsolete.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** cset-obsolete.scm   2001/03/11 18:52:59     1.2
--- cset-obsolete.scm   2001/06/02 17:59:37     1.3
***************
*** 7,12 ****
          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-every?               ; char-set-every
  
          char-set-invert               ; char-set-complement
--- 7,13 ----
          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-every?               ; char-set-every
+         char-set-any?                 ; char-set-any
  
          char-set-invert               ; char-set-complement
***************
*** 39,49 ****
      (define char-set-every?
        (deprecated-proc char-set-every 'char-set-every?
!                      "Use CHAR-SET-EVERYyn instead."))
      (define char-set-invert
        (deprecated-proc char-set-complement 'char-set-invert
!                      "Use CHAR-SET-COMPLEMENTyn instead."))
      (define char-set-invert!
        (deprecated-proc char-set-complement! 'char-set-invert!
!                      "Use CHAR-SET-COMPLEMENT!yn instead."))
  
      (define char-set:alphabetic               char-set:letter)
--- 40,53 ----
      (define char-set-every?
        (deprecated-proc char-set-every 'char-set-every?
!                      "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-COMPLEMENT instead."))
      (define char-set-invert!
        (deprecated-proc char-set-complement! 'char-set-invert!
!                      "Use CHAR-SET-COMPLEMENT! instead."))
  
      (define char-set:alphabetic               char-set:letter)