/[guile]/guile/guile-core/lang/elisp/internals/set.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/internals/set.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26