steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More fixes

slava 2006-08-18 04:56:31 +00:00
parent 7f2e39430e
commit 1b510ee7db
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/syntax/parser.factor
View File

@ -101,7 +101,7 @@ TUPLE: bad-escape ;
[ (parse-effect) column get ] { } make swap column set [ (parse-effect) column get ] { } make swap column set
{ "--" } split1 <effect> ; { "--" } split1 <effect> ;
: parse-base ( base -- ) scan swap base> parsed ; : parse-base ( parsed base -- parsed ) scan swap base> parsed ;
global [ global [
{ {

3
library/tools/word-tools.factor
View File

@ -77,7 +77,8 @@ math namespaces prettyprint sequences strings styles ;
2drop 0 2drop 0
] if ; ] if ;
: completion ( str word -- { score indices word } ) : completion ( str word -- triple )
#! triple is { score indices word }
[ [
word-name [ swap fuzzy ] keep swap [ score ] keep word-name [ swap fuzzy ] keep swap [ score ] keep
] keep ] keep