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

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

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

Modified Files:
        cset-package.scm 
Log Message:
Fixed the type of char-set-contains?.


Index: cset-package.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/lib/cset-package.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** cset-package.scm    2001/03/11 18:52:59     1.2
--- cset-package.scm    2001/04/09 08:14:08     1.3
***************
*** 63,67 ****
          (char-set-size (proc (:value) :exact-integer))
          (char-set-count (proc ((proc (:char) :boolean) :value) 
:exact-integer))
!         (char-set-contains? (proc (:char :value) :boolean))
  
          (char-set-every (proc ((proc (:char) :boolean) :value) :boolean))
--- 63,67 ----
          (char-set-size (proc (:value) :exact-integer))
          (char-set-count (proc ((proc (:char) :boolean) :value) 
:exact-integer))
!         (char-set-contains? (proc (:value :value) :boolean))
  
          (char-set-every (proc ((proc (:char) :boolean) :value) :boolean))