mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

formally deprecate `app'

Browse source 
* module/ice-9/deprecated.scm (app): Deprecate.
* module/ice-9/boot-9.scm: Remove app definition.
This commit is contained in:
Andy Wingo 2010-04-20 13:41:41 +02:00
parent 30ce621c5a
commit c9904ab040
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/ice-9/boot-9.scm
View file

@ -2338,7 +2338,6 @@ If there is no handler at all, Guile prints an error and then exits."
(define %app (make-module 31)) (define %app (make-module 31))
(set-module-name! %app '(%app)) (set-module-name! %app '(%app))
(define app %app) ;; for backwards compatability
(let ((m (make-module 31))) (let ((m (make-module 31)))
(set-module-name! m '()) (set-module-name! m '())

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

@ -38,7 +38,8 @@
$tanh $tanh
closure? closure?
%nil %nil
@bind)) @bind
app))
;;;; Deprecated definitions. ;;;; Deprecated definitions.
@ -296,3 +297,5 @@
(lambda () b0 b1 ...) (lambda () b0 b1 ...)
(lambda () (lambda ()
(set! id old-v) ...))))))))) (set! id old-v) ...)))))))))
(define app %app)