(module srfi-67
  (;procedure
  char-compare
  char-compare-ci
  string-compare
  string-compare-ci
  symbol-compare
  integer-compare
  rational-compare
  real-compare
  complex-compare
  number-compare
  vector-compare
  vector-compare-as-list
  list-compare
  list-compare-as-vector
  pair-compare-car
  pair-compare-cdr
  pair-compare
  pair-compare
  default-compare
  =?
  <?
  >?
  <=?
  >=?
  not=?
  </<?
  </<=?
  <=/<?
  <=/<=?
  >/>?
  >/>=?
  >=/>?
  >=/>=?
  chain=?
  chain<?
  chain>?
  chain<=?
  chain>=?
  pairwise-not=?
  min-compare
  max-compare
  kth-largest
  compare-by<
  compare-by>
  compare-by<=
  compare-by>=
  compare-by=/<
  compare-by=/>
  debug-compare
  refine-compare
  select-compare
  cond-compare
  ;syntax
  if3
  if=?
  if<?
  if>?
  if<=?
  if>=?
  if-not=?)
  (import scheme)
  (import (chicken base))
  (import (chicken module))
  (import (chicken platform))
  (import srfi-27)

  (register-feature! 'srfi-67)

  (include "implementation/compare.scm"))