Changeset 35269 in project


Ignore:
Timestamp:
03/09/18 05:49:40 (9 months ago)
Author:
kon
Message:

alts

Location:
release/4/mathh/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/mathh/trunk/fx-utils.scm

    r35264 r35269  
    7878# undef rem
    7979}
    80 <#
     80#<
    8181
    8282(define C_uword_log2
     
    8888;
    8989(define (*fxrandom x)
     90  (random x)
     91  #;
    9092  (##core#inline "C_random_fixnum" x) )
    9193
    9294(: *fxadd1 (fixnum --> fixnum))
    9395;
    94 (define (*fxadd1 fx)
    95   (##core#inline "C_fixnum_increase" fx) )
     96(define (*fxadd1 x)
     97  (fx+ x 1)
     98  #;
     99  (##core#inline "C_fixnum_increase" x) )
    96100
    97101(: *fxsub1 (fixnum --> fixnum))
    98102;
    99 (define (*fxsub1 fx)
    100   (##core#inline "C_fixnum_decrease" fx) )
     103(define (*fxsub1 x)
     104  (fx- x 1)
     105  #;
     106  (##core#inline "C_fixnum_decrease" x) )
    101107
    102108#|
  • release/4/mathh/trunk/mathh.scm

    r35264 r35269  
    117117}
    118118#endif
    119 
    120 <#
     119#<
    121120
    122121;;; Unimplemented Support
Note: See TracChangeset for help on using the changeset viewer.