|
|
@ -14,7 +14,7 @@ cut(Term) -> |
|
|
|
cut(_, Depth) when Depth > ?tcmDepth -> |
|
|
|
'$truncated11'; |
|
|
|
cut(Bits, _) when is_bitstring(Bits), bit_size(Bits) > ?tcmBitSize -> |
|
|
|
<<CutBits:?tcmBitSize/binary, _/bits>> = Bits, |
|
|
|
<<CutBits:?tcmBinSize/binary, _/bits>> = Bits, |
|
|
|
<<CutBits/binary, "$truncated">>; |
|
|
|
cut(Term, Depth) when is_list(Term) -> |
|
|
|
cutList(Term, Depth, 0, ?tcmListSize, 0, []); |
|
|
|