remove bogus equality
parent
0712db3a27
commit
0190ce5b48
|
@ -25,7 +25,6 @@ SYMBOL: def-hash-keys
|
||||||
{ 2nip [ nip nip ] }
|
{ 2nip [ nip nip ] }
|
||||||
{ 2drop [ drop drop ] }
|
{ 2drop [ drop drop ] }
|
||||||
{ 3drop [ drop drop drop ] }
|
{ 3drop [ drop drop drop ] }
|
||||||
{ zero? [ 0 = ] }
|
|
||||||
{ pop* [ pop drop ] }
|
{ pop* [ pop drop ] }
|
||||||
{ when [ [ ] if ] }
|
{ when [ [ ] if ] }
|
||||||
{ >boolean [ f = not ] }
|
{ >boolean [ f = not ] }
|
||||||
|
@ -49,7 +48,6 @@ SYMBOL: def-hash-keys
|
||||||
[ get ]
|
[ get ]
|
||||||
[ t ] [ f ]
|
[ t ] [ f ]
|
||||||
[ { } ]
|
[ { } ]
|
||||||
[ 0 = ]
|
|
||||||
[ drop ] ! because of declare
|
[ drop ] ! because of declare
|
||||||
[ drop f ]
|
[ drop f ]
|
||||||
[ "cdecl" ]
|
[ "cdecl" ]
|
||||||
|
|
Loading…
Reference in New Issue