Parent Directory | Revision Log | Patch
revision 1.3 by ossau, Wed Jan 30 00:03:40 2002 UTC | revision 1.4 by ossau, Wed Feb 13 21:50:55 2002 UTC | |
---|---|---|
# | Line 5 | Line 5 |
5 | ||
6 | ;; Set SYM's variable value to VAL, and return VAL. | ;; Set SYM's variable value to VAL, and return VAL. |
7 | (define (set sym val) | (define (set sym val) |
8 | (module-define! the-elisp-module sym val) | (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) | val) |
12 | ||
13 | ;; Return SYM's variable value. If it has none, signal an error if | ;; Return SYM's variable value. If it has none, signal an error if |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |