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

remove some unused words

db4
Doug Coleman 2008-09-17 01:01:15 -05:00
parent f7c175a985
commit 779e95a934
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/db/types/types.factor
View File

@ -113,12 +113,6 @@ ERROR: no-sql-type ;
(lookup-type) second (lookup-type) second
] if ; ] if ;
: paren ( string -- new-string )
"(" swap ")" 3append ;
: join-space ( string1 string2 -- new-string )
" " swap 3append ;
: modifiers ( spec -- string ) : modifiers ( spec -- string )
modifiers>> [ lookup-modifier ] map " " join modifiers>> [ lookup-modifier ] map " " join
[ "" ] [ " " prepend ] if-empty ; [ "" ] [ " " prepend ] if-empty ;