mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +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

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

@ -38,9 +38,8 @@
$tanh $tanh
closure? closure?
%nil %nil
@bind @bind))
%app
app))
;;;; Deprecated definitions. ;;;; Deprecated definitions.
@ -299,10 +298,12 @@
(lambda () (lambda ()
(set! id old-v) ...))))))))) (set! id old-v) ...)))))))))
;; Define (%app modules) ;; Define (%app) and (%app modules), and have (app) alias (%app). This
(define %app (make-module 31)) ;; 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)) (set-module-name! %app '(%app))
(nested-define! %app '(modules) (resolve-module '() #f)) (module-define-submodule! the-root-module '%app %app)
(module-define-submodule! the-root-module 'app %app)
;; app aliases %app (module-define-submodule! %app 'modules (resolve-module '() #f)))
(define app %app)