~ chicken-core (master) eeeb4bfbbb3417004836abd3f4fe506743378f5e


commit eeeb4bfbbb3417004836abd3f4fe506743378f5e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri May 15 12:38:40 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri May 15 12:38:40 2026 +0200

    disable range check for irregex for performance reasons.
    Not sure if this need to be relaxed later.

diff --git a/irregex.scm b/irregex.scm
index 505a96bc..72cae86a 100644
--- a/irregex.scm
+++ b/irregex.scm
@@ -59,11 +59,15 @@
      glob->sre sre->string irregex-opt irregex-quote)
 
 
-(import scheme chicken.base chicken.fixnum chicken.syntax chicken.type)
+(import (except scheme integer->char))
+(import chicken.base chicken.fixnum chicken.syntax chicken.type)
 (import (only (scheme base) open-output-string get-output-string))
 
 (import-for-syntax chicken.fixnum)
 
+(define-inline (integer->char n)
+  (##core#inline "C_make_character" (##core#inline "C_unfix" n)) )
+
 (include "common-declarations.scm")
 
 ;; These should probably be taken out of irregex upstream
Trap