Skip to content

Instantly share code, notes, and snippets.

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.
(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 ...))
(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)))))))