Fix very stupid mistake in order.rkt
This commit is contained in:
parent
f12343e723
commit
f808e37e89
|
@ -61,7 +61,7 @@
|
|||
[else (match ta ;; == tb
|
||||
[7 (chain-order
|
||||
(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)
|
||||
[('() '()) '=]
|
||||
[('() _) '<]
|
||||
|
|
Loading…
Reference in New Issue