Changeset 35700 in project


Ignore:
Timestamp:
06/28/18 08:59:29 (3 weeks ago)
Author:
felix
Message:

bind 1.2.2: fix use of irregex-match

Location:
release/5/bind
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/bind/tags/1.2.2/chicken-bind.scm

    r35584 r35700  
    77(import bind-translator)
    88(import (chicken pathname) (chicken io) (chicken base) (chicken port))
    9 (import (chicken irregex) (chicken process-context))
     9(import regex (chicken process-context))
    1010(import (chicken pretty-print))
    1111
     
    6666                ((or (string=? "-rename-regex" arg) (string=? "-rename" arg))
    6767                 (unless (pair? rest) (usage 1))
    68                  (let ((m (irregex-match "([^:]+):(.+)" (cadr args))))
     68                 (let ((m (string-match "([^:]+):(.+)" (cadr args))))
    6969                   (if m
    7070                       (set-renaming (cadr m) (caddr m) regex: (string=? "-rename-regex" arg))
  • release/5/bind/trunk/chicken-bind.scm

    r35584 r35700  
    77(import bind-translator)
    88(import (chicken pathname) (chicken io) (chicken base) (chicken port))
    9 (import (chicken irregex) (chicken process-context))
     9(import regex (chicken process-context))
    1010(import (chicken pretty-print))
    1111
     
    6666                ((or (string=? "-rename-regex" arg) (string=? "-rename" arg))
    6767                 (unless (pair? rest) (usage 1))
    68                  (let ((m (irregex-match "([^:]+):(.+)" (cadr args))))
     68                 (let ((m (string-match "([^:]+):(.+)" (cadr args))))
    6969                   (if m
    7070                       (set-renaming (cadr m) (caddr m) regex: (string=? "-rename-regex" arg))
Note: See TracChangeset for help on using the changeset viewer.