- 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 ;;; vector-delete-neighbor-dups v = [start end] -> vector
(define-interface sort-interface (define-interface sorting-interface
(compound-interface (compound-interface
sorted-interface sorted-interface
(export (export
@ -185,7 +185,7 @@
:vector)) :vector))
((vector-sort! vector-stable-sort!) ((vector-sort! vector-stable-sort!)
(proc ((proc (:value :value) :boolean) :vector) :unspecific))) (proc ((proc (:value :value) :boolean) :vector) :unspecific))
(list-delete-neighbor-dups (list-delete-neighbor-dups
(proc ((proc (:value :value) :boolean) (proc ((proc (:value :value) :boolean)
@ -196,4 +196,4 @@
:vector :vector
&opt &opt
:exact-integer :exact-integer) :exact-integer :exact-integer)
:vector)))) :vector)))))

View File

@ -3,7 +3,7 @@
;;; The general sort package: ;;; The general sort package:
(define-structure sort sort-interface (define-structure sorting sorting-interface
(open scheme (open scheme
list-merge-sort list-merge-sort
vector-heap-sort vector-heap-sort