+ (set! actor-table (make-hash-table)))
+
+;;;
+;;; Serialization
+;;;
+
+ (define (save-actors-to filename)
+ (with-output-to-file filename
+ (lambda ()
+ (serialize (hash-table->alist actor-table)))))
+
+ (define (save-actors)
+ (save-actors-to "image"))
+
+ (define (load-actors-from filename)
+ (set! actor-table
+ (alist->hash-table (with-input-from-file filename deserialize))))
+
+ (define (load-actors)
+ load-actors-from "image"))