/[guile]/guile/guile-core/lang/elisp/primitives/symprop.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/primitives/symprop.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC
# Line 0  Line 1 
1    (define-module (lang elisp primitives symprop)
2      #:use-module (lang elisp internals set)
3      #:use-module (lang elisp internals fset)
4      #:use-module (lang elisp internals evaluation)
5      #:use-module (ice-9 optargs))
6    
7    ;;; {Elisp Exports}
8    
9    (fset 'put set-symbol-property!)
10    
11    (fset 'get symbol-property)
12    
13    (fset 'set set)
14    
15    (fset 'set-default 'set)
16    
17    (fset 'boundp
18          (lambda (sym)
19            (module-defined? the-elisp-module sym)))
20    
21    (fset 'default-boundp 'boundp)
22    
23    (fset 'symbol-value
24          (lambda (sym)
25            (if (module-defined? the-elisp-module sym)
26                (module-ref the-elisp-module sym)
27                (error "Symbol's value as variable is void:" sym))))
28    
29    (fset 'default-value 'symbol-value)
30    
31    (fset 'symbolp
32          (lambda (object)
33            (or (symbol? object)
34                (keyword? object))))
35    
36    (fset 'local-variable-if-set-p
37          (lambda* (variable #:optional buffer)
38            #f))
39    
40    (fset 'symbol-name symbol->string)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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