mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

(system repl command) autoloads the compiler, disassembler, and profiler.

Browse source 
* module/system/repl/command.scm: Autoload (system base compile),
(system vm disassembler), and (statprof).
This commit is contained in:
Ludovic Courtès 2021-06-28 10:23:01 +02:00
parent 96e3686db1
commit 5a389ca728
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/system/repl/command.scm
View file

@ -1,6 +1,6 @@
;;; Repl commands ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -22,10 +22,12 @@
(define-module (system repl command) (define-module (system repl command)
#:use-module (system base syntax) #:use-module (system base syntax)
#:use-module (system base pmatch) #: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 common)
#:use-module (system repl debug) #: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 loader)
#:use-module (system vm program) #:use-module (system vm program)
#:use-module (system vm trap-state) #:use-module (system vm trap-state)
@ -42,7 +44,7 @@
#:use-module ((ice-9 pretty-print) #:select ((pretty-print . pp))) #:use-module ((ice-9 pretty-print) #:select ((pretty-print . pp)))
#:use-module ((system vm inspect) #:select ((inspect . %inspect))) #:use-module ((system vm inspect) #:select ((inspect . %inspect)))
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (statprof) #:autoload (statprof) (statprof)
#:export (meta-command define-meta-command)) #:export (meta-command define-meta-command))