~ chicken-core (chicken-5) 7d7c23f6134eb7f18efb84ae7d830dcc4c093c2b
commit 7d7c23f6134eb7f18efb84ae7d830dcc4c093c2b
Merge: fd1ac20d 526179fb
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jul 31 01:00:08 2010 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jul 31 01:00:08 2010 +0200
resolved conflicts
diff --cc irregex.scm
index 58f56e41,14c071a8..b0dd5a31
--- a/irregex.scm
+++ b/irregex.scm
@@@ -122,13 -123,8 +123,14 @@@
(##sys#slot ,%cache ,(add1 (* i 2)))
,(fold (add1 i))))))))
+(define-inline (fast-string-copy! to tstart from fstart fend)
+ (##core#inline "C_substring_copy" from to fstart fend tstart))
+
+(define-inline (fast-substring=? a b start1 start2 len)
+ (##core#inline "C_substring_compare" a b start1 start2 len))
+
(include "irregex-core.scm")
+ (include "irregex-utils.scm")
(define ##sys#glob->regexp
(let ((list->string list->string)
Trap