: strip-encodings ( -- )
os unix? [
[
- P" resource:core/io/encodings/utf16/utf16.factor"
- P" resource:core/io/encodings/utf16n/utf16n.factor" [ forget ] bi@
- "io.encodings.utf16"
- "io.encodings.utf16n" [ loaded-child-vocab-names [ forget-vocab ] each ] bi@
+ P" resource:core/io/encodings/utf16/utf16.factor" forget
+ "io.encodings.utf16" loaded-child-vocab-names [ forget-vocab ] each
] with-compilation-unit
] when ;