diff options
Diffstat (limited to 'module/ice-9/deprecated.scm')
-rw-r--r-- | module/ice-9/deprecated.scm | 86 |
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?) |