summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-04-23 15:58:08 +0200
committerAndy Wingo <wingo@pobox.com>2010-04-24 17:42:00 +0200
commit635a8b36b1dbed877fb8df752600870e9e1ee625 (patch)
treeb6132707f50bbbaeba95d7b233d26b912f2f27a8
parentd58ccc669cf796b8b9c579e86f3072f0f4223adf (diff)
downloadguile-635a8b36b1dbed877fb8df752600870e9e1ee625.tar.gz
deprecated %app shims use module-define-submodule!
* module/ice-9/deprecated.scm (%app, app, modules): Don't use the module interface to provide %app shims, use module-define-submodule! directly to side-effect the root module.
-rw-r--r--module/ice-9/deprecated.scm21
1 files changed, 11 insertions, 10 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 5c43b2f6b..2ea99ba23 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -38,9 +38,8 @@
$tanh
closure?
%nil
- @bind
- %app
- app))
+ @bind))
+
;;;; Deprecated definitions.
@@ -299,10 +298,12 @@
(lambda ()
(set! id old-v) ...)))))))))
-;; Define (%app modules)
-(define %app (make-module 31))
-(set-module-name! %app '(%app))
-(nested-define! %app '(modules) (resolve-module '() #f))
-
-;; app aliases %app
-(define app %app)
+;; Define (%app) and (%app modules), and have (app) alias (%app). This
+;; side-effects the-root-module, both to the submodules table and (through
+;; module-define-submodule! above) the obarray.
+;;
+(let ((%app (make-module 31)))
+ (set-module-name! %app '(%app))
+ (module-define-submodule! the-root-module '%app %app)
+ (module-define-submodule! the-root-module 'app %app)
+ (module-define-submodule! %app 'modules (resolve-module '() #f)))