diff options
Diffstat (limited to 'module/system/vm/bootstrap.scm')
-rw-r--r-- | module/system/vm/bootstrap.scm | 16 |
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")) |