From 5a389ca7282c6f6b944a4c6abc47cd8b02e2e092 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 28 Jun 2021 10:23:01 +0200 Subject: [PATCH] (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 ac1fa0933..fce3a2471 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))