From 1b510ee7db9fe631d2696dbb845b6ee9c492ebba Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 18 Aug 2006 04:56:31 +0000
Subject: [PATCH] More fixes

---
 library/syntax/parser.factor    | 2 +-
 library/tools/word-tools.factor | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/library/syntax/parser.factor b/library/syntax/parser.factor
index f643d197fe..05df542955 100644
--- a/library/syntax/parser.factor
+++ b/library/syntax/parser.factor
@@ -101,7 +101,7 @@ TUPLE: bad-escape ;
     [ (parse-effect) column get ] { } make swap column set
     { "--" } split1 <effect> ;
 
-: parse-base ( base -- ) scan swap base> parsed ;
+: parse-base ( parsed base -- parsed ) scan swap base> parsed ;
 
 global [
     {
diff --git a/library/tools/word-tools.factor b/library/tools/word-tools.factor
index bb8be6490e..9d50a0dd1e 100644
--- a/library/tools/word-tools.factor
+++ b/library/tools/word-tools.factor
@@ -77,7 +77,8 @@ math namespaces prettyprint sequences strings styles ;
         2drop 0
     ] if ;
 
-: completion ( str word -- { score indices word } )
+: completion ( str word -- triple )
+    #! triple is { score indices word }
     [
         word-name [ swap fuzzy ] keep swap [ score ] keep
     ] keep