Changeset 12128 in project


Ignore:
Timestamp:
10/08/08 14:45:00 (12 years ago)
Author:
felix winkelmann
Message:

removed uses of make-anchored-pattern

Location:
chicken/branches/irregular
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/irregular/files.scm

    r11646 r12128  
    172172        [string-append string-append])
    173173    (let* ([drv (if ##sys#windows-platform "([A-Za-z]:)?" "")]
    174            [patt (make-anchored-pattern (string-append drv "[\\/\\\\].*"))]
     174           [patt (string-append drv "[\\/\\\\].*")]
    175175           [rx (regexp patt)] )
    176176      (lambda (pn)
  • chicken/branches/irregular/posixunix.scm

    r11989 r12128  
    475475    (no-procedure-checks-for-usual-bindings)
    476476    (bound-to-procedure
    477      string-match glob->regexp regexp make-anchored-pattern
     477     string-match glob->regexp regexp
    478478     ##sys#thread-yield! ##sys#make-string
    479479     ##sys#make-port ##sys#file-info ##sys#update-errno ##sys#fudge ##sys#make-c-string ##sys#check-port
     
    20782078(define glob
    20792079  (let ([regexp regexp]
    2080         [make-anchored-pattern make-anchored-pattern]
    20812080        [string-match string-match]
    20822081        [glob->regexp glob->regexp]
     
    20902089            (let ([path (car paths)])
    20912090              (let-values ([(dir fil ext) (decompose-pathname path)])
    2092                 (let* ([fnpatt (glob->regexp (make-pathname #f (or fil "*") ext))]
    2093                        [patt (make-anchored-pattern fnpatt)]
     2091                (let* ([patt (glob->regexp (make-pathname #f (or fil "*") ext))]
    20942092                       [rx (regexp patt)])
    20952093                  (let loop ([fns (directory (or dir ".") #t)])
  • chicken/branches/irregular/posixwin.scm

    r11989 r12128  
    17641764(define glob
    17651765  (let ([regexp regexp]
    1766         [make-anchored-pattern make-anchored-pattern]
    17671766        [string-match string-match]
    17681767        [glob->regexp glob->regexp]
     
    17761775            (let ([path (car paths)])
    17771776              (let-values ([(dir fil ext) (decompose-pathname path)])
    1778                 (let* ([fnpatt (glob->regexp (make-pathname #f (or fil "*") ext))]
    1779                        [patt (make-anchored-pattern fnpatt)]
     1777                (let* ([patt (glob->regexp (make-pathname #f (or fil "*") ext))]
    17801778                       [rx (regexp patt)])
    17811779                  (let loop ([fns (directory (or dir ".") #t)])
  • chicken/branches/irregular/regex.import.scm

    r10788 r12128  
    3030   glob?
    3131   grep
    32    make-anchored-pattern
    3332   regex-chardef-table
    3433   regex-chardef-table?
Note: See TracChangeset for help on using the changeset viewer.