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