shell: reliable image rendering

This commit is contained in:
Kartik K. Agaram 2021-07-29 07:55:28 -07:00
parent e9fb7e4453
commit 295e50f025
1 changed files with 1 additions and 0 deletions

View File

@ -299,6 +299,7 @@ fn array? _x: (addr cell) -> _/eax: boolean {
}
fn new-image _out-ah: (addr handle cell), in: (addr stream byte) {
rewind-stream in
var out-ah/eax: (addr handle cell) <- copy _out-ah
allocate out-ah
var out/eax: (addr cell) <- lookup *out-ah