diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-09 13:49:17 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-12 13:45:21 +0200 |
commit | be6a5c6c758f82fe003496cfad82c411e3a625c6 (patch) | |
tree | 494d8e8bff687e7f6eb63b3535c8183e550beb78 /module/scripts/api-diff.scm | |
parent | bdadd4b057e0904d796325cb06fbd366cc6342e3 (diff) | |
download | guile-be6a5c6c758f82fe003496cfad82c411e3a625c6.tar.gz |
Deprecate object-properties in the main environment
They should be deprecated entirely except that they are used for object
documentation. Some other day.
* libguile/objprop.c:
* libguile/objprop.h: Remove.
* libguile/deprecated.h:
* libguile/deprecated.c (scm_object_properties):
(scm_set_object_properties_x):
(scm_object_property):
(scm_set_object_property_x): Add deprecation shims.
* module/ice-9/deprecated.scm (object-properties*):
(set-object-properties!*):
(object-property*):
(set-object-property!*): Add deprecation shims.
* libguile/init.c:
* libguile.h: Remove objprops.
* module/ice-9/object-properties.scm: Add pure Scheme implementation
here.
* module/ice-9/documentation.scm:
* module/scripts/api-diff.scm:
* module/scripts/read-text-outline.scm:
* module/scripts/scan-api.scm:
* module/scripts/summarize-guile-TODO.scm:
* module/srfi/srfi-64.scm: Include object-properties module.
Diffstat (limited to 'module/scripts/api-diff.scm')
-rw-r--r-- | module/scripts/api-diff.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/module/scripts/api-diff.scm b/module/scripts/api-diff.scm index 7e04937ba..8fe0c9c73 100644 --- a/module/scripts/api-diff.scm +++ b/module/scripts/api-diff.scm @@ -1,6 +1,6 @@ ;;; api-diff --- diff guile-api.alist files -;; Copyright (C) 2002, 2006, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2006, 2011, 2025 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License @@ -40,11 +40,12 @@ ;;; Code: (define-module (scripts api-diff) - :use-module (ice-9 common-list) - :use-module (ice-9 format) - :use-module (ice-9 getopt-long) - :autoload (srfi srfi-13) (string-tokenize) - :export (api-diff)) + #:use-module (ice-9 common-list) + #:use-module (ice-9 format) + #:use-module (ice-9 getopt-long) + #:use-module (ice-9 object-properties) + #:autoload (srfi srfi-13) (string-tokenize) + #:export (api-diff)) (define %include-in-guild-list #f) (define %summary "Show differences between two scan-api files.") @@ -54,7 +55,7 @@ (lambda () (read)))) (define put set-object-property!) -(define get object-property) +(define get yobject-property) (define (read-api-alist-file file) (let* ((alist (read-alist-file file)) |