]> gitweb.factorcode.org Git - factor.git/commitdiff
swap drop === nip
authorPeter Burns <peter@metaweb.com>
Sat, 8 Nov 2008 21:45:45 +0000 (13:45 -0800)
committerPeter Burns <peter@metaweb.com>
Sat, 8 Nov 2008 21:45:45 +0000 (13:45 -0800)
basis/json/reader/reader-tests.factor

index ed444948a72ef41df2c52f4d33e0127fc39eca95..fbd91601bf79e3fe868e71b87eeaf40c4323936a 100644 (file)
@@ -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
-