diff options
author | Robin Templeton <robin@terpri.org> | 2024-12-13 22:32:16 -0500 |
---|---|---|
committer | Robin Templeton <robin@terpri.org> | 2024-12-13 22:32:16 -0500 |
commit | ece0f4e7823f055a0a08a8b83e1ec4f078877723 (patch) | |
tree | 7d992bc082b16fcb25602c74ed0d3e961319a211 | |
parent | 4b9b8277733729f5b825f78fadfead9fc3630e7e (diff) | |
download | guile-wip-elisp-rebased.tar.gz |
remove uses of define-inlinablewip-elisp-rebased
* module/language/elisp/runtime.scm (ensure-present!, ensure-desc!)
(schemify): Remove use of `define-inlinable'.
-rw-r--r-- | module/language/elisp/runtime.scm | 6 |
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_) |