diff options
author | Andy Wingo <wingo@pobox.com> | 2010-04-23 15:58:08 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-04-24 17:42:00 +0200 |
commit | 635a8b36b1dbed877fb8df752600870e9e1ee625 (patch) | |
tree | b6132707f50bbbaeba95d7b233d26b912f2f27a8 | |
parent | d58ccc669cf796b8b9c579e86f3072f0f4223adf (diff) | |
download | guile-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.scm | 21 |
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))) |