summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-05-02 18:59:04 +0200
committerAndy Wingo <wingo@pobox.com>2008-05-02 18:59:04 +0200
commit063fd30bbe68c67475dc46ba5d4cf49bac321305 (patch)
tree813525c1ba63238c4a5caf97988699d1d379a697 /module
parent0a8a9780b8ea829af0e06578541fe9a1fb71530c (diff)
downloadguile-063fd30bbe68c67475dc46ba5d4cf49bac321305.tar.gz
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*.
Diffstat (limited to 'module')
-rw-r--r--module/system/base/syntax.scm5
-rw-r--r--module/system/repl/command.scm3
-rw-r--r--module/system/vm/disasm.scm1
3 files changed, 3 insertions, 6 deletions
diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index 4af70c0c0..7f23df601 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -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)
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 802df5aa8..c0f05b45a 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -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))
;;;
diff --git a/module/system/vm/disasm.scm b/module/system/vm/disasm.scm
index 9d0bb9c24..399300824 100644
--- a/module/system/vm/disasm.scm
+++ b/module/system/vm/disasm.scm
@@ -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)