summaryrefslogtreecommitdiff
path: root/module/system/vm/bootstrap.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/bootstrap.scm')
-rw-r--r--module/system/vm/bootstrap.scm16
1 files changed, 4 insertions, 12 deletions
diff --git a/module/system/vm/bootstrap.scm b/module/system/vm/bootstrap.scm
index 785bcad67..6ecd83554 100644
--- a/module/system/vm/bootstrap.scm
+++ b/module/system/vm/bootstrap.scm
@@ -25,15 +25,7 @@
;;; Core procedures
;;;
-(dynamic-call "scm_init_vm" (dynamic-link "libguile-vm"))
-
-(module-export! (current-module)
- (delq! '%module-public-interface
- (hash-fold (lambda (k v d) (cons k d)) '()
- (module-obarray (current-module)))))
-
-;; `load-compiled' is referred to by `boot-9.scm' and used by `use-modules'
-;; and friends.
-(set! load-compiled
- (lambda (file)
- ((the-vm) (objcode->program (load-objcode file)))))
+;; Calling this updates boot-9.scm's `load-compiled' to point to to
+;; scm_load_compiled_with_vm, so future module loads will read .go files
+;; if they are present.
+(dynamic-call "scm_bootstrap_vm" (dynamic-link "libguile-vm"))