/[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.3 by ossau, Wed Jan 30 00:03:40 2002 UTC revision 1.4 by ossau, Fri Feb 8 11:50:51 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp primitives symprop)  (define-module (lang elisp primitives symprop)
   #:use-module (lang elisp internals set)  
   #:use-module (lang elisp internals fset)  
2    #:use-module (lang elisp internals evaluation)    #:use-module (lang elisp internals evaluation)
3      #:use-module (lang elisp internals fset)
4      #:use-module (lang elisp internals null)
5      #:use-module (lang elisp internals set)
6    #:use-module (ice-9 optargs))    #:use-module (ice-9 optargs))
7    
8  ;;; {Elisp Exports}  ;;; {Elisp Exports}
# Line 16  Line 17 
17    
18  (fset 'boundp  (fset 'boundp
19        (lambda (sym)        (lambda (sym)
20          (module-defined? the-elisp-module sym)))          (->nil (module-defined? the-elisp-module sym))))
21    
22  (fset 'default-boundp 'boundp)  (fset 'default-boundp 'boundp)
23    
# Line 29  Line 30 
30  (fset 'symbolp  (fset 'symbolp
31        (lambda (object)        (lambda (object)
32          (or (symbol? object)          (or (symbol? object)
33              (keyword? object))))              (keyword? object)
34                %nil)))
35    
36  (fset 'local-variable-if-set-p  (fset 'local-variable-if-set-p
37        (lambda* (variable #:optional buffer)        (lambda* (variable #:optional buffer)
38          #f))          %nil))
39    
40  (fset 'symbol-name symbol->string)  (fset 'symbol-name symbol->string)

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