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