From 8047115746ada0a5577e8e045140a8424441005b Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 1 Apr 2008 18:52:40 -0600 Subject: [PATCH 1/2] remove extra/new-effects --- extra/new-effects/new-effects.factor | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100644 extra/new-effects/new-effects.factor diff --git a/extra/new-effects/new-effects.factor b/extra/new-effects/new-effects.factor deleted file mode 100644 index f073ccadd3..0000000000 --- a/extra/new-effects/new-effects.factor +++ /dev/null @@ -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 From a94e5245a3b35d6062990729e16b8bf13d2a4cdd Mon Sep 17 00:00:00 2001 From: erg Date: Tue, 1 Apr 2008 20:07:18 -0500 Subject: [PATCH 2/2] fix teh tests FOR GREAT JUSTICE --- extra/io/unix/files/files-tests.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/extra/io/unix/files/files-tests.factor b/extra/io/unix/files/files-tests.factor index a0310a1cac..040b191d27 100755 --- a/extra/io/unix/files/files-tests.factor +++ b/extra/io/unix/files/files-tests.factor @@ -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