diff --git a/basis/alien/endian/endian.factor b/basis/alien/endian/endian.factor index b905e4b66b..bc2919bb6e 100644 --- a/basis/alien/endian/endian.factor +++ b/basis/alien/endian/endian.factor @@ -18,21 +18,13 @@ ERROR: invalid-signed-conversion n ; [ invalid-signed-conversion ] } case ; inline - - MACRO: byte-reverse ( n signed? -- quot ) [ drop [ dup iota [ [ 1 + - -8 * ] [ nip 8 * ] 2bi - [ + ] [ nip byte-mask ] 2bi - '[ _ shift _ bitand ] + '[ _ shift HEX: ff bitand _ shift ] ] with map ] [ 1 - [ bitor ] n*quot ] bi ] [