SaitoAtsushi

(define (pick-toothless ls)
  (let rec ((ls ls)(acc '()))
    (if (or (null? ls)
            (null? (cdr ls)))
        (reverse acc)
        (let1 next (+ (car ls) 1)
          (if (= next (cadr ls))
              (rec (cdr ls) acc)
              (rec (cons next (cdr ls))
                   (cons next acc)))))))

SaitoAtsushi

(use util.match)

(define-syntax %def
  (syntax-rules (->)
    ((_ (a ...) (b ...) -> x r ...)
     (%def (a ... ((b ...) x)) () r ...))
    ((_ (a ...) (b ...) x r ...)
     (%def (a ...) (b ... x) r ...))
    ((_ (a ...) ())
     (match-lambda* a ...))

SaitoAtsushi

diff --git a/src/gauche.h b/src/gauche.h
index 7b12cb1..bb3fd6e 100644
--- a/src/gauche.h
+++ b/src/gauche.h
@@ -74,13 +74,6 @@
 # endif
 #endif
 
-/* For Windows platforms, we need some compatibility tricks.
-   This defines GAUCHE_WINDOWS preprocessor symbol.