mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-08 13:10:19 +02:00
Code Activity

Move make-object-property out to a module

Browse source 
This will allow for weak tables to be implemented partly in Scheme.

* module/ice-9/object-properties.scm: New file.

* am/bootstrap.am (SOURCES): Add new file.

* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm (make-object-property*): Deprecate
make-object-property in default env and add a shim.

* module/ice-9/buffered-input.scm (ice-9):
* module/language/elisp/boot.el (plist-function):
* module/scripts/frisk.scm (scripts):
* module/web/http.scm (web): Adapt users to import the new module.
This commit is contained in:
Andy Wingo 2025-05-06 11:35:40 +02:00
parent 1f96d1bf4b
commit 3a9c0939a0
8 changed files with 67 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/elisp/boot.el
View file

@ -1,6 +1,6 @@
;;; Guile Emacs Lisp -*- lexical-binding: t -*-
;;; Copyright (C) 2011 Free Software Foundation, Inc.
;;; Copyright (C) 2011, 2025 Free Software Foundation, Inc.
;;; This library is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU Lesser General Public License as
@ -505,7 +505,8 @@
(defun lax-plist-put (plist property value)
(%plist-put plist property value #'equal))
(defvar plist-function (funcall (@ (guile) make-object-property)))
(defvar plist-function
(funcall (@ (ice-9 object-properties) make-object-property)))
(defun symbol-plist (symbol)
(funcall plist-function symbol))