lt-core/lt-stdlib/stdio.lt

13 lines
280 B
Text
Raw Permalink Normal View History

export {
/* output nullterminated string directly from datastack
*/
let print-nullterm =
λ{} : < Seq Char~Ascii~machine.Word >
~ < NullTerminatedArray machine.Word >
↦ {
while(dup) { emit; }
drop;
};
}