Changeset 13805 in project for chicken


Ignore:
Timestamp:
03/18/09 00:14:54 (11 years ago)
Author:
Ivan Raikov
Message:

Applied patch by Will Farr to fix C_random_fixnum.

Location:
chicken/branches/chicken-3
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/NEWS

    r13413 r13805  
     13.5.3
     2
     3- fix in C_random_fixnum. [Will Farr]
     4
    153.5.2
    26
  • chicken/branches/chicken-3/README

    r13416 r13805  
    33  (c)2000-2008 Felix L. Winkelmann
    44
    5   version 3.5.2
     5  version 3.5.3
    66
    77
  • chicken/branches/chicken-3/buildversion

    r13416 r13805  
    1 3.5.2
     13.5.3
  • chicken/branches/chicken-3/chicken.h

    r13178 r13805  
    10361036#define C_words(n)                      C_fix(C_bytestowords(C_unfix(n)))
    10371037#define C_bytes(n)                      C_fix(C_wordstobytes(C_unfix(n)))
    1038 #define C_random_fixnum(n)              C_fix(rand() % C_unfix(n))
     1038#define C_random_fixnum(n)              C_fix((int)(((double)rand())/(RAND_MAX + 1.0) * C_unfix(n)))
    10391039#define C_randomize(n)                  (srand(C_unfix(n)), C_SCHEME_UNDEFINED)
    10401040#define C_block_size(x)                 C_fix(C_header_size(x))
  • chicken/branches/chicken-3/manual/The User's Manual

    r13416 r13805  
    33== The User's Manual
    44
    5 This is the user's manual for the Chicken Scheme compiler, version 3.5.2
     5This is the user's manual for the Chicken Scheme compiler, version 3.5.3
    66
    77; [[Getting started]] : What is CHICKEN and how do I use it?
  • chicken/branches/chicken-3/scripts/makehtml.scm

    r11233 r13805  
    99(use syntax-case)
    1010(use srfi-40)
    11 (use html-stream stream-ext stream-wiki utils srfi-13 posix regex)
     11(use html-stream stream-ext stream-wiki svnwiki-extensions utils srfi-13 posix regex)
    1212(use matchable)
    1313
     
    5050
    5151(define *pdf* #f)
    52 (define *extension-path* #f)
    5352(define *pages* (if (file-exists? "manual") (directory "manual") (list)))
    5453(define *only* #f)
     
    167166      (make-pathname "manual" pagename) ))
    168167
    169 (define *loaded-extensions* (make-hash-table))
    170 
    171168(define (wiki-files->html)
    172169  (for-each
     
    194191               (constantly stream-null)
    195192               (constantly #t)
    196                *loaded-extensions*) )
     193               ) )
    197194             (printf "~%</body></html>") ) ) ) ) )
    198195   (if *only* (list *only*) *pages*) ) )
     
    200197(define (usage code)
    201198  (print "makehtml --fetch-manual")
    202   (print "makehtml --extension-path=EXTPATH [--pdf] [--wikipath=PATH] [--only=PAGENAME]")
     199  (print "makehtml [--pdf] [--wikipath=PATH] [--only=PAGENAME]")
    203200  (exit code) )
    204201
     
    218215  (exit) )
    219216
    220 (unless *extension-path* (usage 1))
    221217(system* "mkdir -p html")
    222 (for-each
    223  (lambda (f)
    224    (unless (string-suffix? ".svn" f)
    225      (load-extensions-from-file *loaded-extensions* f)))
    226  (glob (conc *extension-path* "/*")) )
     218
    227219(when *pdf* (chapters-sanity-check))
    228220(wiki-files->html)
  • chicken/branches/chicken-3/version.scm

    r13413 r13805  
    1 (define-constant +build-version+ "3.5.2")
     1(define-constant +build-version+ "3.5.3")
Note: See TracChangeset for help on using the changeset viewer.