- fix paren typo in sort interfaces

- rename SORT to SORTING so we can hook it into the regular build
This commit is contained in:
sperber 2004-01-26 21:25:22 +00:00
parent cb9f440657
commit d772a5df84
2 changed files with 13 additions and 13 deletions

View File

@ -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,15 +185,15 @@
: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)
:value)
:value))
(vector-delete-neighbor-dups
(proc ((proc (:value :value) :boolean)
:vector
&opt
:exact-integer :exact-integer)
:vector))))
(list-delete-neighbor-dups
(proc ((proc (:value :value) :boolean)
:value)
:value))
(vector-delete-neighbor-dups
(proc ((proc (:value :value) :boolean)
:vector
&opt
:exact-integer :exact-integer)
:vector)))))

View File

@ -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