[Top][All Lists]
[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)
- [Chicken-users] [patch] libc regex case-insensitivity,
Zbigniew <=