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

Diff of /guile/guile-core/lang/elisp/primitives/numbers.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 numbers)  (define-module (lang elisp primitives numbers)
2    #:use-module (lang elisp internals fset))    #:use-module (lang elisp internals fset)
3      #:use-module (lang elisp internals null))
4    
5  (fset 'logior logior)  (fset 'logior logior)
6  (fset 'logand logand)  (fset 'logand logand)
7  (fset 'integerp integer?)  (fset 'integerp (lambda->nil integer?))
8  (fset '= =)  (fset '= =)
9  (fset '< <)  (fset '< <)
10  (fset '> >)  (fset '> >)
# Line 39  Line 40 
40                          (- shift 1))))))                          (- shift 1))))))
41          lsh))          lsh))
42    
43  (fset 'numberp number?)  (fset 'numberp (lambda->nil number?))

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