summaryrefslogtreecommitdiff
path: root/module/ice-9/deprecated.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/deprecated.scm')
-rw-r--r--module/ice-9/deprecated.scm86
1 files changed, 13 insertions, 73 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 2f41686ac..85be82e95 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -15,79 +15,19 @@
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;;
-(define-module (ice-9 deprecated)
- #:use-module ((ice-9 threads) #:prefix threads:))
+(define-module (ice-9 deprecated))
-(define-syntax-rule (define-deprecated var msg exp)
+(define-syntax-rule (define-deprecated name message exp)
(begin
- (define-syntax var
- (lambda (x)
- (issue-deprecation-warning msg)
- (syntax-case x ()
- ((id arg (... ...)) #'(let ((x id)) (x arg (... ...))))
- (id (identifier? #'id) #'exp))))
- (export var)))
+ (define-syntax rule
+ (identifier-syntax
+ (begin
+ (issue-deprecation-warning message)
+ exp)))
+ (export rule)))
-(define-deprecated _IONBF
- "`_IONBF' is deprecated. Use the symbol 'none instead."
- 'none)
-(define-deprecated _IOLBF
- "`_IOLBF' is deprecated. Use the symbol 'line instead."
- 'line)
-(define-deprecated _IOFBF
- "`_IOFBF' is deprecated. Use the symbol 'block instead."
- 'block)
-
-(define-syntax define-deprecated/threads
- (lambda (stx)
- (define (threads-name id)
- (datum->syntax id (symbol-append 'threads: (syntax->datum id))))
- (syntax-case stx ()
- ((_ name)
- (with-syntax ((name* (threads-name #'name))
- (warning (string-append
- "Import (ice-9 threads) to have access to `"
- (symbol->string (syntax->datum #'name)) "'.")))
- #'(define-deprecated name warning name*))))))
-
-(define-syntax-rule (define-deprecated/threads* name ...)
- (begin (define-deprecated/threads name) ...))
-
-(define-deprecated/threads*
- call-with-new-thread
- yield
- cancel-thread
- join-thread
- thread?
- make-mutex
- make-recursive-mutex
- lock-mutex
- try-mutex
- unlock-mutex
- mutex?
- mutex-owner
- mutex-level
- mutex-locked?
- make-condition-variable
- wait-condition-variable
- signal-condition-variable
- broadcast-condition-variable
- condition-variable?
- current-thread
- all-threads
- thread-exited?
- total-processor-count
- current-processor-count)
-
-(define-public make-dynamic-state
- (case-lambda
- (()
- (issue-deprecation-warning
- "`(make-dynamic-state)' is deprecated; use `(current-dynamic-state)'
-instead.")
- (current-dynamic-state))
- ((parent)
- (issue-deprecation-warning
- "`(make-dynamic-state PARENT)' is deprecated; now that reified
-dynamic state objects are themselves copies, just use PARENT directly.")
- parent)))
+(define %allow-legacy-syntax-objects? (make-parameter #f))
+(define-deprecated allow-legacy-syntax-objects?
+ "allow-legacy-syntax-objects? is deprecated and has no effect. Guile
+3.0 has no legacy syntax objects."
+ %allow-legacy-syntax-objects?)