From 8223b179a521d34d4d97250318c0286935b438a1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 24 Mar 2013 09:34:05 -0700
Subject: [PATCH] graphs: fix stack effect to be more clear on closure.

---
 basis/graphs/graphs-docs.factor | 2 +-
 basis/graphs/graphs.factor      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/graphs/graphs-docs.factor b/basis/graphs/graphs-docs.factor
index a08a2a5bf9..66e896065c 100644
--- a/basis/graphs/graphs-docs.factor
+++ b/basis/graphs/graphs-docs.factor
@@ -28,5 +28,5 @@ HELP: remove-vertex
 { $side-effects "graph" } ;
 
 HELP: closure
-{ $values { "obj" object } { "quot" { $quotation "( obj -- assoc )" } } { "assoc" "a new assoc" } }
+{ $values { "vertex" object } { "quot" { $quotation "( vertex -- assoc )" } } { "assoc" "a new assoc" } }
 { $description "Outputs a set of all vertices reachable from " { $snippet "vertex" } " via edges given by the quotation. The set always includes " { $snippet "vertex" } "." } ;
diff --git a/basis/graphs/graphs.factor b/basis/graphs/graphs.factor
index eed2a69c33..a1ab6c5dc3 100644
--- a/basis/graphs/graphs.factor
+++ b/basis/graphs/graphs.factor
@@ -31,7 +31,7 @@ PRIVATE>
 
 <PRIVATE
 
-: (closure) ( obj assoc quot: ( elt -- assoc ) -- )
+: (closure) ( vertex assoc quot: ( vertex -- assoc ) -- )
     2over key? [
         3drop
     ] [
@@ -41,5 +41,5 @@ PRIVATE>
 
 PRIVATE>
 
-: closure ( obj quot -- assoc )
+: closure ( vertex quot: ( vertex -- assoc ) -- assoc )
     H{ } clone [ swap (closure) ] keep ; inline