From a4cecaaf40974238b31dad5804e26cbe48c7ecf6 Mon Sep 17 00:00:00 2001 From: Peter Burns Date: Sat, 8 Nov 2008 13:45:45 -0800 Subject: [PATCH] swap drop === nip --- basis/json/reader/reader-tests.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/basis/json/reader/reader-tests.factor b/basis/json/reader/reader-tests.factor index ed444948a7..fbd91601bf 100644 --- a/basis/json/reader/reader-tests.factor +++ b/basis/json/reader/reader-tests.factor @@ -35,7 +35,7 @@ IN: json.reader.tests { H{ } } [ "{}" json> ] unit-test ! the returned hashtable should be different every time -{ H{ } } [ "key" "value" "{}" json> ?set-at "{}" json> swap drop ] unit-test +{ H{ } } [ "key" "value" "{}" json> ?set-at "{}" json> nip ] unit-test { H{ { "US$" 1.0 } { "EU€" 1.5 } } } [ <" { "US$":1.00, "EU\u20AC":1.50 } "> json> ] unit-test { H{ @@ -54,4 +54,3 @@ IN: json.reader.tests { 0 } [ " 0" json> ] unit-test { 0 } [ "0 " json> ] unit-test { 0 } [ " 0 " json> ] unit-test -