More load-sources changes

froggey · Jul 24, 2020 · 9a8c8b8 · 9a8c8b8
1 parent 9ef1a80
commit 9a8c8b8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tools/load-sources.lisp b/tools/load-sources.lisp
@@ -256,6 +256,8 @@
   (warm-up-class-constructors)
   (setf (symbol-value (read-from-string "bordeaux-threads:*default-special-bindings*"))
         '((*terminal-io* . (make-instance 'mezzano.gui.popup-io-stream:lazy-popup-io-stream))))
+  ;; MED still uses this function...
+  (setf (fdefinition 'mezzano.gui.compositor::fifo) #'mezzano.gui.compositor::mailbox)
   (setf (sys.int::symbol-global-value '*package*) (find-package :cl-user))
   (setf *default-pathname-defaults* (pathname "LOCAL:>")
         mezzano.file-system::*home-directory* *default-pathname-defaults*)