[Guile-commits] 01/05: (system repl command) autoloads the compiler, disassembler, and profiler.

[Ludovic Courtès]

civodul pushed a commit to branch main
in repository guile.

commit 5a389ca7282c6f6b944a4c6abc47cd8b02e2e092
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 28 10:23:01 2021 +0200

    (system repl command) autoloads the compiler, disassembler, and profiler.
    
    * module/system/repl/command.scm: Autoload (system base compile),
    (system vm disassembler), and (statprof).
---
 module/system/repl/command.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index ac1fa09..fce3a24 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -1,6 +1,6 @@
 ;;; Repl commands
 
-;; Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2020 Free Software 
Foundation, Inc.
+;; Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2020, 2021 Free Software 
Foundation, Inc.
 
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -22,10 +22,12 @@
 (define-module (system repl command)
   #:use-module (system base syntax)
   #:use-module (system base pmatch)
-  #:use-module (system base compile)
+  #:autoload   (system base compile) (compile-file)
   #:use-module (system repl common)
   #:use-module (system repl debug)
-  #:use-module (system vm disassembler)
+  #:autoload   (system vm disassembler) (disassemble-image
+                                         disassemble-program
+                                         disassemble-file)
   #:use-module (system vm loader)
   #:use-module (system vm program)
   #:use-module (system vm trap-state)
@@ -42,7 +44,7 @@
   #:use-module ((ice-9 pretty-print) #:select ((pretty-print . pp)))
   #:use-module ((system vm inspect) #:select ((inspect . %inspect)))
   #:use-module (rnrs bytevectors)
-  #:use-module (statprof)
+  #:autoload   (statprof) (statprof)
   #:export (meta-command define-meta-command))