Changeset 31493 in project


Ignore:
Timestamp:
09/24/14 09:22:13 (6 years ago)
Author:
sjamaan
Message:

numbers: Add some important notes about the 'design' of the new numeric system, so I won't forget

Location:
release/4/numbers/trunk
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/TODO

    r31489 r31493  
    11-*- org -*-   
     2* Make an exception for eqv and assq so they can be inlineable
    23* See if it's possible to move variadic procedures into C
    34  This could be kind of tricky considering we have to allocate
  • release/4/numbers/trunk/numbers.scm

    r31489 r31493  
    784784(define (even? x) (##core#inline "C_i_basic_evenp" x))
    785785
     786;; TODO: Move to C?
    786787(define (max x1 . xs)
    787788  (let loop ((i (##core#inline "C_i_flonump" x1)) (m x1) (xs xs))
     
    793794                (##sys#slot xs 1)) ) ) )  )
    794795
     796;; TODO: Move to C?
    795797(define (min x1 . xs)
    796798  (let ((i (##core#inline "C_i_flonump" x1)))
Note: See TracChangeset for help on using the changeset viewer.