[Scsh-checkins] CVS: scsh/scsh fr.scm,1.6,1.7

[Mike Sperber <sperber@users.sourceforge.net>]

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

Modified Files:
        fr.scm 
Log Message:
String delim matchers are supposed to be interpreted in POSIX flat
syntax.


Index: fr.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/fr.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** fr.scm      2001/03/11 18:52:58     1.6
--- fr.scm      2001/07/11 11:30:38     1.7
***************
*** 70,74 ****
  (define (->delim-matcher x)
    (if (procedure? x) x                                        ; matcher proc
!       (let ((re (cond ((string? x) (re-string x))
                      ((char-set? x) (re-char-set x))
                      ((char? x) (re-string (string x)))
--- 70,74 ----
  (define (->delim-matcher x)
    (if (procedure? x) x                                        ; matcher proc
!       (let ((re (cond ((string? x) (posix-string->regexp x))
                      ((char-set? x) (re-char-set x))
                      ((char? x) (re-string (string x)))