summaryrefslogtreecommitdiff
path: root/module/scripts/api-diff.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-05-09 13:49:17 +0200
committerAndy Wingo <wingo@pobox.com>2025-05-12 13:45:21 +0200
commitbe6a5c6c758f82fe003496cfad82c411e3a625c6 (patch)
tree494d8e8bff687e7f6eb63b3535c8183e550beb78 /module/scripts/api-diff.scm
parentbdadd4b057e0904d796325cb06fbd366cc6342e3 (diff)
downloadguile-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.scm15
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))