Fix very stupid mistake in order.rkt
This commit is contained in:
parent
f12343e723
commit
f808e37e89
|
@ -61,7 +61,7 @@
|
||||||
[else (match ta ;; == tb
|
[else (match ta ;; == tb
|
||||||
[7 (chain-order
|
[7 (chain-order
|
||||||
(preserve-order (record-label a) (record-label b))
|
(preserve-order (record-label a) (record-label b))
|
||||||
(preserve-order (record-fields a)) (preserve-order (record-fields b)))]
|
(preserve-order (record-fields a) (record-fields b)))]
|
||||||
[8 (match* (a b)
|
[8 (match* (a b)
|
||||||
[('() '()) '=]
|
[('() '()) '=]
|
||||||
[('() _) '<]
|
[('() _) '<]
|
||||||
|
|
Loading…
Reference in New Issue