mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
clean up some syntax imports and exports
* module/system/base/syntax.scm (system): Don't re-export receive or and-let*; modules should explicitly import these if they want to. Don't export an empty stack-catch definition! * module/system/repl/command.scm (system): Pull in and-let*. * module/system/vm/disasm.scm (system): Don't import and-let*.
This commit is contained in:
parent
0a8a9780b8
commit
063fd30bbe
3 changed files with 3 additions and 6 deletions
|
@ -20,10 +20,7 @@
|
|||
;;; Code:
|
||||
|
||||
(define-module (system base syntax)
|
||||
:use-module (ice-9 receive)
|
||||
:use-module (ice-9 and-let-star)
|
||||
:export (stack-catch receive and-let*
|
||||
%make-struct slot
|
||||
:export (%make-struct slot
|
||||
%slot-1 %slot-2 %slot-3 %slot-4 %slot-5
|
||||
%slot-6 %slot-7 %slot-8 %slot-9
|
||||
list-fold)
|
||||
|
|
|
@ -32,7 +32,8 @@
|
|||
:autoload (system vm profile) (vm-profile)
|
||||
:use-module (ice-9 format)
|
||||
:use-module (ice-9 session)
|
||||
:use-module (ice-9 documentation))
|
||||
:use-module (ice-9 documentation)
|
||||
:use-module (ice-9 and-let-star))
|
||||
|
||||
|
||||
;;;
|
||||
|
|
|
@ -26,7 +26,6 @@
|
|||
:use-module (ice-9 match)
|
||||
:use-module (ice-9 format)
|
||||
:use-module (ice-9 receive)
|
||||
:use-module (ice-9 and-let-star)
|
||||
:export (disassemble-objcode disassemble-program disassemble-bytecode))
|
||||
|
||||
(define (disassemble-objcode objcode . opts)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue