sS assertEquals_quote(S x, S y) {
  ret assertEquals_quote(null, x, y);
}

sS assertEquals_quote(S msg, S x, S y) {
  if (neq(x, y))
    fail((msg != null ? msg + ": " : "") + quote(y) + " != " + quote(x));
  ret y;
}