preserve indentation of the sandbox
This commit is contained in:
parent
7045af7a4e
commit
9ae724e1ec
|
@ -192,5 +192,5 @@
|
||||||
(main . [def (main screen keyboard)
|
(main . [def (main screen keyboard)
|
||||||
(pat screen)])
|
(pat screen)])
|
||||||
))
|
))
|
||||||
(sandbox . (pat screen))
|
(sandbox . [(pat screen)])
|
||||||
)
|
)
|
||||||
|
|
|
@ -998,14 +998,14 @@ fn load-state _self: (addr environment), data-disk: (addr disk) {
|
||||||
{
|
{
|
||||||
compare sandbox-cell, 0
|
compare sandbox-cell, 0
|
||||||
break-if-=
|
break-if-=
|
||||||
# print: cell -> stream
|
var sandbox-data-ah/eax: (addr handle stream byte) <- get sandbox-cell, text-data
|
||||||
clear-trace trace
|
var _sandbox-data/eax: (addr stream byte) <- lookup *sandbox-data-ah
|
||||||
print-cell sandbox-cell-ah, s, trace
|
var sandbox-data/ecx: (addr stream byte) <- copy _sandbox-data
|
||||||
# stream -> gap-buffer
|
# stream -> gap-buffer
|
||||||
var sandbox/eax: (addr sandbox) <- get self, sandbox
|
var sandbox/eax: (addr sandbox) <- get self, sandbox
|
||||||
var data-ah/eax: (addr handle gap-buffer) <- get sandbox, data
|
var data-ah/eax: (addr handle gap-buffer) <- get sandbox, data
|
||||||
var data/eax: (addr gap-buffer) <- lookup *data-ah
|
var data/eax: (addr gap-buffer) <- lookup *data-ah
|
||||||
load-gap-buffer-from-stream data, s
|
load-gap-buffer-from-stream data, sandbox-data
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -71,9 +71,9 @@ fn write-sandbox out: (addr stream byte), _self: (addr sandbox) {
|
||||||
break-if-!=
|
break-if-!=
|
||||||
return
|
return
|
||||||
}
|
}
|
||||||
write out, " (sandbox . "
|
write out, " (sandbox . ["
|
||||||
append-gap-buffer data, out
|
append-gap-buffer data, out
|
||||||
write out, ")\n"
|
write out, "])\n"
|
||||||
}
|
}
|
||||||
|
|
||||||
##
|
##
|
||||||
|
|
Loading…
Reference in New Issue