summaryrefslogtreecommitdiff
path: root/module/language/elisp/runtime.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/elisp/runtime.scm')
-rw-r--r--module/language/elisp/runtime.scm29
1 files changed, 17 insertions, 12 deletions
diff --git a/module/language/elisp/runtime.scm b/module/language/elisp/runtime.scm
index bddfa82e4..5f85395c2 100644
--- a/module/language/elisp/runtime.scm
+++ b/module/language/elisp/runtime.scm
@@ -21,12 +21,17 @@
(define-module (language elisp runtime)
#:export (void
- nil-value t-value
- value-slot-module function-slot-module
+ nil-value
+ t-value
+ value-slot-module
+ function-slot-module
elisp-bool
- ensure-fluid! reference-variable reference-variable-with-check
+ ensure-fluid!
+ reference-variable
+ reference-variable-with-check
set-variable!
- runtime-error macro-error)
+ runtime-error
+ macro-error)
#:export-syntax (built-in-func built-in-macro prim))
;;; This module provides runtime support for the Elisp front-end.
@@ -61,8 +66,8 @@
(define (elisp-bool b)
(if b
- t-value
- nil-value))
+ t-value
+ nil-value))
;;; Routines for access to elisp dynamically bound symbols. This is used
;;; for runtime access using functions like symbol-value or set, where
@@ -73,10 +78,10 @@
(let ((intf (resolve-interface module))
(resolved (resolve-module module)))
(if (not (module-defined? intf sym))
- (let ((fluid (make-fluid)))
- (fluid-set! fluid void)
- (module-define! resolved sym fluid)
- (module-export! resolved `(,sym))))))
+ (let ((fluid (make-fluid)))
+ (fluid-set! fluid void)
+ (module-define! resolved sym fluid)
+ (module-export! resolved `(,sym))))))
(define (reference-variable module sym)
(ensure-fluid! module sym)
@@ -86,8 +91,8 @@
(define (reference-variable-with-check module sym)
(let ((value (reference-variable module sym)))
(if (eq? value void)
- (runtime-error "variable is void:" sym)
- value)))
+ (runtime-error "variable is void:" sym)
+ value)))
(define (set-variable! module sym value)
(ensure-fluid! module sym)