Add deprecated message to with-bucket.
This commit is contained in:
@@ -160,7 +160,8 @@
|
|||||||
((with-bucket bucket (func p1 ...))
|
((with-bucket bucket (func p1 ...))
|
||||||
(func bucket p1 ...))
|
(func bucket p1 ...))
|
||||||
((with-bucket bucket exp body ...)
|
((with-bucket bucket exp body ...)
|
||||||
(begin (with-bucket bucket exp)
|
(begin (print "I am deprecated.")
|
||||||
|
(with-bucket bucket exp)
|
||||||
(with-bucket bucket body ...)))))
|
(with-bucket bucket body ...)))))
|
||||||
|
|
||||||
(define (list-buckets)
|
(define (list-buckets)
|
||||||
|
|||||||
Reference in New Issue
Block a user