mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

remove uses of define-inlinable

Browse source 
* module/language/elisp/runtime.scm (ensure-present!, ensure-desc!)
(schemify): Remove use of `define-inlinable'.
This commit is contained in:
Robin Templeton 2024-12-13 22:32:16 -05:00
parent 4b9b827773
commit ece0f4e782
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/language/elisp/runtime.scm
View file

@ -116,13 +116,13 @@
thunk thunk
(lambda () (vector-set! x 4 old))))) (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) (or (module-local-variable module sym)
(let ((variable (make-variable (thunk)))) (let ((variable (make-variable (thunk))))
(module-add! module sym variable) (module-add! module sym variable)
variable))) variable)))
(define-inlinable (ensure-desc! module sym) (define (ensure-desc! module sym)
(ensure-present! module (ensure-present! module
sym sym
(lambda () (lambda ()
@ -130,7 +130,7 @@
(vector-set! x 0 sym) (vector-set! x 0 sym)
x)))) x))))
(define-inlinable (schemify symbol) (define (schemify symbol)
(case symbol (case symbol
((#nil) nil_) ((#nil) nil_)
((#t) t_) ((#t) t_)