~ chicken-core (chicken-5) 84e997b979393600323c19d2149c39c88b4ea71e

commit 84e997b979393600323c19d2149c39c88b4ea71e
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Nov 9 21:55:24 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Nov 10 13:30:33 2012 +0100

    Mark all unused procedures (or replaced by compiler-macro) in irregex to get rid of compile-time warnings
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/irregex.scm b/irregex.scm
index 659d874c..253b7457 100644
--- a/irregex.scm
+++ b/irregex.scm
@@ -85,6 +85,13 @@
 
 (register-feature! 'irregex)
 
+;; These should probably be taken out of irregex upstream
+(declare (unused filter integer-log cset-size remove))
+
+;; Due to usual-integrations, find is the one from library.scm,
+;; so find-tail is unused (it's only used in the "find" definition)
+(declare (unused find-tail))
+
 (define-syntax build-cache
   (er-macro-transformer 
    (lambda (x r c)
@@ -125,6 +132,7 @@
 			      (##sys#slot ,%cache ,(add1 (* i 2)))
 			      ,(fold (add1 i))))))))))
 
+(declare (unused %%string-copy!))
 (define-compiler-syntax %%string-copy!
   (syntax-rules ()
     ((_ to tstart from fstart fend)
@@ -135,6 +143,7 @@
 	   (v fend))
        (##core#inline "C_substring_copy" z x u v y)))))
 
+(declare (unused %substring=?))
 (define-compiler-syntax %substring=?
   (syntax-rules ()
     ((_ a b start1 start2 len)
@@ -156,26 +165,32 @@
       #f                                 ; #3: chunka
       #f))))                             ; #4: fail
 
+(declare (unused reverse))
 (define-compiler-syntax reverse
   (syntax-rules ()
     ((_ lst) (##sys#fast-reverse lst))))
 
+(declare (unused bit-shl))
 (define-compiler-syntax bit-shl
   (syntax-rules ()
     ((_ n i) (fxshl n i))))
 
+(declare (unused bit-shr))
 (define-compiler-syntax bit-shr
   (syntax-rules ()
     ((_ n i) (fxshr n i))))
 
+(declare (unused bit-not))
 (define-compiler-syntax bit-not
   (syntax-rules ()
     ((_ n) (fxnot n))))
 
+(declare (unused bit-ior))
 (define-compiler-syntax bit-ior
   (syntax-rules ()
     ((_ a b) (fxior a b))))
 
+(declare (unused bit-and))
 (define-compiler-syntax bit-and
   (syntax-rules ()
     ((_ a b) (fxand a b))))
@@ -188,26 +203,31 @@
   (syntax-rules ()
     ((_ m i x) (##sys#setslot (##sys#slot m 1) i x))))
 
+(declare (unused irregex-match-start-chunk-set!))
 (define-compiler-syntax irregex-match-start-chunk-set!
   (syntax-rules ()
     ((_ m n start)
      (vector-set! (##sys#slot m 1) (* n 4) start))))
 
+(declare (unused irregex-match-start-index-set!))
 (define-compiler-syntax irregex-match-start-index-set!
   (syntax-rules ()
     ((_ m n start)
      (vector-set! (##sys#slot m 1) (+ 1 (* n 4)) start))))
 
+(declare (unused irregex-match-end-chunk-set!))
 (define-compiler-syntax irregex-match-end-chunk-set!
   (syntax-rules ()
     ((_ m n end)
      (vector-set! (##sys#slot m 1) (+ 2 (* n 4)) end))))
 
+(declare (unused irregex-match-end-index-set!))
 (define-compiler-syntax irregex-match-end-index-set!
   (syntax-rules ()
     ((_ m n end)
      (vector-set! (##sys#slot m 1) (+ 3 (* n 4)) end))))
 
+(declare (unused irregex-match-chunk&index-from-tag-set!))
 (define-compiler-syntax irregex-match-chunk&index-from-tag-set!
   (syntax-rules ()
     ((_ m t chunk index)
@@ -215,6 +235,7 @@
        (vector-set! (##sys#slot m 1) (+ 4 (* t 2)) chunk)
        (vector-set! (##sys#slot m 1) (+ 5 (* t 2)) index)))))
 
+(declare (unused bit-and))
 (define-compiler-syntax %irregex-error
   (syntax-rules ()
     ((_ args ...)