equal
deleted
inserted
replaced
29 search-class-method-dictionary |
29 search-class-method-dictionary |
30 lookup-method |
30 lookup-method |
31 |
31 |
32 read-image |
32 read-image |
33 serialize-image |
33 serialize-image |
|
34 save-image-to-file |
34 |
35 |
35 boot-image) |
36 boot-image) |
36 |
37 |
37 (define-logger vm) |
38 (define-logger vm) |
38 |
39 |
228 (for [(s slots)] (push-int! (object->index s)))])) |
229 (for [(s slots)] (push-int! (object->index s)))])) |
229 (loop))) |
230 (loop))) |
230 |
231 |
231 (bytes-append* (reverse output-rev))) |
232 (bytes-append* (reverse output-rev))) |
232 |
233 |
|
234 (define (save-image-to-file vm filename) |
|
235 (let ((image-bytes (serialize-image vm))) |
|
236 (display-to-file image-bytes filename #:exists 'replace))) |
|
237 |
233 (define (boot-image vm evaluator files-to-file-in) |
238 (define (boot-image vm evaluator files-to-file-in) |
234 (define (doIt task) |
239 (define (doIt task) |
235 (define true-class (obj-class (VM-true vm))) ;; class True |
240 (define true-class (obj-class (VM-true vm))) ;; class True |
236 (define name (slotAt true-class 0)) ;; "a known string", namely the name of class True |
241 (define name (slotAt true-class 0)) ;; "a known string", namely the name of class True |
237 (define string-class (obj-class name)) ;; class String |
242 (define string-class (obj-class name)) ;; class String |