1002def encodeUTF8 =
1003 (lambda unrestricted codepoints : (family UTF8Codepoints) .
1004 (eliminate
1005 UTF8EncodeBuilderResult
1006 (lambda unrestricted current : (family UTF8EncodeBuilderResult) . (family UTF8EncodeResult))
1007 (utf8EncodeBuilderFold codepoints)
1008 (branch
1009 UTF8EncodeBuilderSucceeded
1010 builder
1011 .
1012 (constructor UTF8EncodeResult UTF8EncodeSucceeded (bytes-builder-build builder)))
1013 (branch
1014 UTF8EncodeBuilderFailed
1015 code
1016 offset
1017 .
1018 (constructor UTF8EncodeResult UTF8EncodeFailed code (utf8OffsetWord offset)))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.