lt-core/lt-stdlib/stdio.lt

16 lines
299 B
Text
Raw Normal View History

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