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