[Scsh-checkins] CVS: scsh-0.6/scsh newports.scm,1.7,1.8 glob.scm,1.3,1.4

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

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv20548

Modified Files:
        newports.scm glob.scm 
Log Message:
Fixed 2 typos

Index: newports.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/newports.scm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** newports.scm        2001/03/23 10:59:07     1.7
--- newports.scm        2001/03/25 17:14:31     1.8
***************
*** 51,55 ****
  
  (define (fdport-channel-ready? fdport*)
!   (channel-ready? (fdport-data: channel fdport*)))
  
  ;Arbitrary, for now.
--- 51,55 ----
  
  (define (fdport-channel-ready? fdport*)
!   (channel-ready? (fdport-data:channel fdport*)))
  
  ;Arbitrary, for now.

Index: glob.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/glob.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** glob.scm    2001/03/23 10:52:08     1.3
--- glob.scm    2001/03/25 17:14:32     1.4
***************
*** 159,163 ****
                                   elts)))
                   (values (re-char-set (if negate?
!                                           (char-set-compelment! cset)
                                            cset))
                           i)))
--- 159,163 ----
                                   elts)))
                   (values (re-char-set (if negate?
!                                           (char-set-complement! cset)
                                            cset))
                           i)))