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

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

db4
Doug Coleman 2008-04-01 20:21:03 -05:00
parent 6ac0d4692f a94e5245a3
commit 7814d4cbc8
2 changed files with 5 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/io/unix/files/files-tests.factor
View File

@ -22,8 +22,8 @@ IN: io.unix.files.tests
[ "/lib" ] [ "/" "../../lib" append-path ] unit-test
[ "/lib/" ] [ "/" "../../lib/" append-path ] unit-test
{ [ "/lib" ] [ "/usr/" "/lib" append-path ] }
{ [ "/lib/" ] [ "/usr/" "/lib/" append-path ] }
{ [ "/lib/bux" ] [ "/usr" "/lib/bux" append-path ] }
{ [ "/lib/bux/" ] [ "/usr" "/lib/bux/" append-path ] }
{ [ t ] [ "/foo" absolute-path? ] }
[ "/lib" ] [ "/usr/" "/lib" append-path ] unit-test
[ "/lib/" ] [ "/usr/" "/lib/" append-path ] unit-test
[ "/lib/bux" ] [ "/usr" "/lib/bux" append-path ] unit-test
[ "/lib/bux/" ] [ "/usr" "/lib/bux/" append-path ] unit-test
[ t ] [ "/foo" absolute-path? ] unit-test

17
extra/new-effects/new-effects.factor
View File

@ -1,17 +0,0 @@
USING: assocs kernel sequences ;
IN: new-effects
: new-nth ( seq n -- elt )
swap nth ; inline
: new-set-nth ( seq obj n -- seq )
pick set-nth ; inline
: new-at ( assoc key -- elt )
swap at ; inline
: new-at* ( assoc key -- elt ? )
swap at* ; inline
: new-set-at ( assoc value key -- assoc )
pick set-at ; inline