17 lines
303 B
Plaintext
17 lines
303 B
Plaintext
!import "base.tri" !Local
|
|
!import "list.tri" !Local
|
|
|
|
bytesNil? = emptyList?
|
|
|
|
bytesHead = matchList nothing (h _ : just h)
|
|
|
|
bytesTail = matchList nothing (_ r : just r)
|
|
|
|
byteEq? = equal?
|
|
bytesLength = length
|
|
bytesAppend = append
|
|
bytesTake = take
|
|
bytesDrop = drop
|
|
bytesSplitAt = splitAt
|
|
bytesEq? = equal?
|