From ece0f4e7823f055a0a08a8b83e1ec4f078877723 Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Fri, 13 Dec 2024 22:32:16 -0500 Subject: [PATCH] remove uses of define-inlinable * module/language/elisp/runtime.scm (ensure-present!, ensure-desc!) (schemify): Remove use of `define-inlinable'. --- module/language/elisp/runtime.scm | 6 +++--- 1 file 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_)