Typo in SRFI 128 sample implementation?

*Sudarshan S Chawathe* 26 Nov 2015 16:07 UTC

In trying out the sample implementation, I encountered errors that
seemed to suggest a fix (diff output below) related to a misplaced
parenthesis. This fix seems to make sense based on a Chicken warning
about unexpected number of parameters, but it's based on a very quick
and localized reading of the source, so I may have completely missed the
point.
Regards,
-chaw
--- default.scm~ 2015-11-23 15:21:03.000000000 -0500
+++ default.scm 2015-11-26 10:47:49.078401450 -0500
@@ -78,8 +78,8 @@
((5) (symbol<? a b))
((6) (complex<? a b))
((7) ((make-vector<? (make-default-comparator) vector? vector-length vector-ref) a b))
- ((8) ((make-vector<? (make-comparator exact-integer? = < default-hash))
- bytevector? bytevector-length bytevector-u8-ref) a b)
+ ((8) ((make-vector<? (make-comparator exact-integer? = < default-hash)
+ bytevector? bytevector-length bytevector-u8-ref) a b))
; Add more here
(else (binary<? (registered-comparator type) a b))))