mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

deprecated %app shims use module-define-submodule!

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2010-04-23 15:58:08 +02:00
parent d58ccc669c
commit 635a8b36b1
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
module/ice-9/deprecated.scm
View file

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