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

swap drop === nip

db4
Peter Burns 2008-11-08 13:45:45 -08:00
parent 64cdabf57a
commit a4cecaaf40
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/json/reader/reader-tests.factor
View 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