chicken-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] [patch] libc regex case-insensitivity


From: Zbigniew
Subject: [Chicken-users] [patch] libc regex case-insensitivity
Date: Mon, 30 May 2005 15:53:51 -0500

This should fix a small bug in libc regex where a case-insensitivity
request i.e. (regexp "....." #t) would be ignored.

--- chicken-1.935/regex.scm.orig        2005-05-30 15:39:20.000000000 -0500
+++ chicken-1.935/regex.scm     2005-05-30 15:39:38.000000000 -0500
@@ -268,7 +268,7 @@
                "C_free(rx);") ]
        [%comp 
         (foreign-lambda* int ([c-string rx] [c-pointer ptr] [unsigned-integer 
flags])
-          "return(regcomp((regex_t *)ptr, rx, REG_EXTENDED));") ] )
+          "return(regcomp((regex_t *)ptr, rx, flags));") ] )
     (let ([comp
            (lambda (rx rt ls)
              (if (null? ls)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]