1
Fork 0
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:
Andy Wingo 2008-05-02 18:59:04 +02:00
parent 0a8a9780b8
commit 063fd30bbe
3 changed files with 3 additions and 6 deletions

View file

@ -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)

View file

@ -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))
;;; ;;;

View file

@ -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)