From b150e155d92a7289f5eaba0ffb17328e7a9f66e0 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 12 Aug 2006 20:58:12 +0000
Subject: [PATCH] Further cleanups

---
 library/math/vectors.factor | 3 +++
 library/words.factor        | 3 ---
 library/words.facts         | 5 -----
 3 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/library/math/vectors.factor b/library/math/vectors.factor
index b200e2a4aa..da7acf814c 100644
--- a/library/math/vectors.factor
+++ b/library/math/vectors.factor
@@ -28,3 +28,6 @@ USING: arrays generic kernel sequences ;
 
 : sum ( seq -- n ) 0 [ + ] reduce ;
 : product ( seq -- n ) 1 [ * ] reduce ;
+
+: infimum ( seq -- n ) 1./0. [ min ] reduce ;
+: supremum ( seq -- n ) -1./0. [ max ] reduce ;
diff --git a/library/words.factor b/library/words.factor
index 6d508b71cc..5d19a93cb1 100644
--- a/library/words.factor
+++ b/library/words.factor
@@ -109,9 +109,6 @@ M: word unxref-word* drop ;
 : define-temp ( quot -- word )
     gensym [ swap define-compound ] keep ;
 
-: completions ( substring words -- seq )
-    [ word-name subseq? ] subset-with ;
-
 SYMBOL: bootstrapping?
 
 : word ( -- word ) \ word get-global ;
diff --git a/library/words.facts b/library/words.facts
index 05f5d3284b..2fe8f58ef3 100644
--- a/library/words.facts
+++ b/library/words.facts
@@ -159,11 +159,6 @@ HELP: define-temp "( quot -- word )"
     { $code "[ 2 2 + . ] define-temp execute" }
 } ;
 
-HELP: completions "( string words -- seq )"
-{ $values { "string" "a string" } { "words" "a sequence of words" } { "seq" "a sequence of words" } }
-{ $description "Outputs a sequence of words whose name contains " { $snippet "string" } "." }
-{ $examples "This word is used to implement " { $link apropos } "." } ;
-
 HELP: definer "( word -- definer )"
 { $values { "word" "a word" } { "definer" "a word" } }
 { $description "Outputs the parsing word that defines the given word." }