guile18/lang/elisp/internals/set.scm

   1 (define-module (lang elisp internals set)
   2   #:use-module (lang elisp internals evaluation)
   3   #:use-module (lang elisp internals signal)
   4   #:export (set value))
   5
   6 ;; Set SYM's variable value to VAL, and return VAL.
   7 (define (set sym val)
   8   (if (module-defined? the-elisp-module sym)
   9       (module-set! the-elisp-module sym val)
  10       (module-define! the-elisp-module sym val))
  11   val)
  12
  13 ;; Return SYM's variable value.  If it has none, signal an error if
  14 ;; MUST-EXIST is true, just return #nil otherwise.
  15 (define (value sym must-exist)
  16   (if (module-defined? the-elisp-module sym)
  17       (module-ref the-elisp-module sym)
  18       (if must-exist
  19           (error "Symbol's value as variable is void:" sym)
  20           %nil)))