Changeset 18675 in project


Ignore:
Timestamp:
07/01/10 10:53:41 (10 years ago)
Author:
felix winkelmann
Message:

added <integer> class to coops-primitive-objects

Location:
release/4/coops
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/coops/tags/0.4/coops-primitive-objects.scm

    r18317 r18675  
    6565
    6666(defprim <number> number?)
    67  (defprim <exact-number> (lambda (x) (and (number? x) (exact? x))) <number>)
     67 (defprim <integer> integer? <number>)
     68  (defprim <exact-number> (lambda (x) (and (integer? x) (exact? x))) <integer>)
    6869 (defprim <inexact-number> (lambda (x) (and (number? x) (inexact? x))) <number>)
    6970 (defprim <fixnum> fixnum? <exact-number> <immediate>)
  • release/4/coops/tags/0.4/coops.setup

    r18409 r18675  
    1010 '("coops.so" "coops.import.so"
    1111   "coops-primitive-objects.so" "coops-primitive-objects.import.so")
    12  '((version 0.3)))
     12 '((version 0.4)))
    1313
  • release/4/coops/trunk/coops-primitive-objects.scm

    r18317 r18675  
    6565
    6666(defprim <number> number?)
    67  (defprim <exact-number> (lambda (x) (and (number? x) (exact? x))) <number>)
     67 (defprim <integer> integer? <number>)
     68  (defprim <exact-number> (lambda (x) (and (integer? x) (exact? x))) <integer>)
    6869 (defprim <inexact-number> (lambda (x) (and (number? x) (inexact? x))) <number>)
    6970 (defprim <fixnum> fixnum? <exact-number> <immediate>)
  • release/4/coops/trunk/coops.setup

    r18409 r18675  
    1010 '("coops.so" "coops.import.so"
    1111   "coops-primitive-objects.so" "coops-primitive-objects.import.so")
    12  '((version 0.3)))
     12 '((version 0.4)))
    1313
Note: See TracChangeset for help on using the changeset viewer.