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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-11-25 16:26:23 -06:00
parent b16b8dae32 de95773574
commit fc5d53327d
2 changed files with 75 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/generalizations/generalizations.factor
View File

@ -22,8 +22,13 @@ MACRO: firstn ( n -- )
bi prefix '[ _ cleave ] bi prefix '[ _ cleave ]
] if ; ] if ;
MACRO: npick ( n -- ) : npick-wrap ( quot n -- quot )
1- dup saver [ dup ] rot [ r> swap ] n*quot 3append ; dup 1 >
[ swap '[ _ dip swap ] swap 1 - npick-wrap ]
[ drop ]
if ;
MACRO: npick ( n -- quot ) [ dup ] swap npick-wrap ;
MACRO: ndup ( n -- ) MACRO: ndup ( n -- )
dup '[ _ npick ] n*quot ; dup '[ _ npick ] n*quot ;

3
extra/webapps/wee-url/wee-url.factor
View File

@ -4,7 +4,8 @@
USING: math.ranges sequences random accessors combinators.lib USING: math.ranges sequences random accessors combinators.lib
kernel namespaces fry db.types db.tuples urls validators kernel namespaces fry db.types db.tuples urls validators
html.components html.forms http http.server.dispatchers furnace html.components html.forms http http.server.dispatchers furnace
furnace.actions furnace.boilerplate furnace.redirection ; furnace.actions furnace.boilerplate furnace.redirection
furnace.utilities ;
IN: webapps.wee-url IN: webapps.wee-url
TUPLE: wee-url < dispatcher ; TUPLE: wee-url < dispatcher ;