From 063fd30bbe68c67475dc46ba5d4cf49bac321305 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 2 May 2008 18:59:04 +0200 Subject: [PATCH] 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*. --- module/system/base/syntax.scm | 5 +---- module/system/repl/command.scm | 3 ++- module/system/vm/disasm.scm | 1 - 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)