mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +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:
|
;;; Code:
|
||||||
|
|
||||||
(define-module (system base syntax)
|
(define-module (system base syntax)
|
||||||
:use-module (ice-9 receive)
|
:export (%make-struct slot
|
||||||
:use-module (ice-9 and-let-star)
|
|
||||||
:export (stack-catch receive and-let*
|
|
||||||
%make-struct slot
|
|
||||||
%slot-1 %slot-2 %slot-3 %slot-4 %slot-5
|
%slot-1 %slot-2 %slot-3 %slot-4 %slot-5
|
||||||
%slot-6 %slot-7 %slot-8 %slot-9
|
%slot-6 %slot-7 %slot-8 %slot-9
|
||||||
list-fold)
|
list-fold)
|
||||||
|
|
|
@ -32,7 +32,8 @@
|
||||||
:autoload (system vm profile) (vm-profile)
|
:autoload (system vm profile) (vm-profile)
|
||||||
:use-module (ice-9 format)
|
:use-module (ice-9 format)
|
||||||
:use-module (ice-9 session)
|
: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 match)
|
||||||
:use-module (ice-9 format)
|
:use-module (ice-9 format)
|
||||||
:use-module (ice-9 receive)
|
:use-module (ice-9 receive)
|
||||||
:use-module (ice-9 and-let-star)
|
|
||||||
:export (disassemble-objcode disassemble-program disassemble-bytecode))
|
:export (disassemble-objcode disassemble-program disassemble-bytecode))
|
||||||
|
|
||||||
(define (disassemble-objcode objcode . opts)
|
(define (disassemble-objcode objcode . opts)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue