This commit is contained in:
Kartik K. Agaram 2021-06-11 18:20:25 -07:00
parent 18c8e8c82f
commit c1e5ddfa54

View File

@ -56,7 +56,7 @@ fn load-globals in: (addr handle cell), self: (addr global-table) {
var value-gap-buffer/eax: (addr gap-buffer) <- lookup *value-gap-buffer-ah var value-gap-buffer/eax: (addr gap-buffer) <- lookup *value-gap-buffer-ah
initialize-gap-buffer value-gap-buffer, 0x1000/4KB initialize-gap-buffer value-gap-buffer, 0x1000/4KB
load-gap-buffer-from-stream value-gap-buffer, value-data load-gap-buffer-from-stream value-gap-buffer, value-data
read-and-evaluate-and-save-gap-buffer-and-save-trace-to-globals value-gap-buffer-ah, self, name-data read-and-evaluate-and-save-gap-buffer-and-save-trace-to-globals value-gap-buffer-ah, self
loop loop
} }
move-cursor-to-left-margin-of-next-line 0/screen move-cursor-to-left-margin-of-next-line 0/screen
@ -592,7 +592,7 @@ fn is-definition? _expr: (addr cell) -> _/eax: boolean {
} }
# HERE: ..and this # HERE: ..and this
fn read-and-evaluate-and-save-gap-buffer-and-save-trace-to-globals in-ah: (addr handle gap-buffer), globals: (addr global-table), definition-name: (addr stream byte) { fn read-and-evaluate-and-save-gap-buffer-and-save-trace-to-globals in-ah: (addr handle gap-buffer), globals: (addr global-table) {
var definitions-created-storage: (stream int 0x10) var definitions-created-storage: (stream int 0x10)
var definitions-created/ebx: (addr stream int) <- address definitions-created-storage var definitions-created/ebx: (addr stream int) <- address definitions-created-storage
var trace-storage: trace var trace-storage: trace