- fix paren typo in sort interfaces
- rename SORT to SORTING so we can hook it into the regular build
This commit is contained in:
parent
cb9f440657
commit
d772a5df84
|
@ -152,7 +152,7 @@
|
|||
;;;
|
||||
;;; vector-delete-neighbor-dups v = [start end] -> vector
|
||||
|
||||
(define-interface sort-interface
|
||||
(define-interface sorting-interface
|
||||
(compound-interface
|
||||
sorted-interface
|
||||
(export
|
||||
|
@ -185,7 +185,7 @@
|
|||
:vector))
|
||||
|
||||
((vector-sort! vector-stable-sort!)
|
||||
(proc ((proc (:value :value) :boolean) :vector) :unspecific)))
|
||||
(proc ((proc (:value :value) :boolean) :vector) :unspecific))
|
||||
|
||||
(list-delete-neighbor-dups
|
||||
(proc ((proc (:value :value) :boolean)
|
||||
|
@ -196,4 +196,4 @@
|
|||
:vector
|
||||
&opt
|
||||
:exact-integer :exact-integer)
|
||||
:vector))))
|
||||
:vector)))))
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
|
||||
;;; The general sort package:
|
||||
|
||||
(define-structure sort sort-interface
|
||||
(define-structure sorting sorting-interface
|
||||
(open scheme
|
||||
list-merge-sort
|
||||
vector-heap-sort
|
||||
|
|
Loading…
Reference in New Issue