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

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

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

revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC revision 1.3 by ossau, Fri Feb 8 11:50:51 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp primitives features)  (define-module (lang elisp primitives features)
2    #:use-module (lang elisp internals fset)    #:use-module (lang elisp internals fset)
3    #:use-module (lang elisp internals load)    #:use-module (lang elisp internals load)
4      #:use-module (lang elisp internals null)
5    #:use-module (ice-9 optargs))    #:use-module (ice-9 optargs))
6    
7  (define-public features '())  (define-public features '())
# Line 12  Line 13 
13    
14  (fset 'featurep  (fset 'featurep
15        (lambda (feature)        (lambda (feature)
16          (memq feature features)))          (->nil (memq feature features))))
17    
18  (fset 'require  (fset 'require
19        (lambda* (feature #:optional file-name noerror)        (lambda* (feature #:optional file-name noerror)

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

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