summaryrefslogtreecommitdiff
path: root/module/language/elisp/runtime.scm
diff options
context:
space:
mode:
authorRobin Templeton <robin@terpri.org>2024-12-13 22:32:16 -0500
committerRobin Templeton <robin@terpri.org>2024-12-13 22:32:16 -0500
commitece0f4e7823f055a0a08a8b83e1ec4f078877723 (patch)
tree7d992bc082b16fcb25602c74ed0d3e961319a211 /module/language/elisp/runtime.scm
parent4b9b8277733729f5b825f78fadfead9fc3630e7e (diff)
downloadguile-ece0f4e7823f055a0a08a8b83e1ec4f078877723.tar.gz
remove uses of define-inlinablewip-elisp-rebased
* module/language/elisp/runtime.scm (ensure-present!, ensure-desc!) (schemify): Remove use of `define-inlinable'.
Diffstat (limited to 'module/language/elisp/runtime.scm')
-rw-r--r--module/language/elisp/runtime.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/language/elisp/runtime.scm b/module/language/elisp/runtime.scm
index bf5b36929..cf7524742 100644
--- a/module/language/elisp/runtime.scm
+++ b/module/language/elisp/runtime.scm
@@ -116,13 +116,13 @@
thunk
(lambda () (vector-set! x 4 old)))))
-(define-inlinable (ensure-present! module sym thunk)
+(define (ensure-present! module sym thunk)
(or (module-local-variable module sym)
(let ((variable (make-variable (thunk))))
(module-add! module sym variable)
variable)))
-(define-inlinable (ensure-desc! module sym)
+(define (ensure-desc! module sym)
(ensure-present! module
sym
(lambda ()
@@ -130,7 +130,7 @@
(vector-set! x 0 sym)
x))))
-(define-inlinable (schemify symbol)
+(define (schemify symbol)
(case symbol
((#nil) nil_)
((#t) t_)