Changeset 8009 in project


Ignore:
Timestamp:
01/31/08 08:38:23 (10 years ago)
Author:
iraikov
Message:

Release 3.3 withdrawn

Location:
ode
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • ode/tags

    • Property latest changed from 3.3 to 3.2
  • ode/trunk/extensions/ode-bpr.scm

    r8007 r8009  
    102102  (let ((np (fp* p (fp- n 1.0)))
    103103        (q  (fp- 1.0 p))
    104         (xmin 0)
     104        (xmin 0.0)
    105105        (xmax (fp- n 1.0)))
    106106    (let ((result
     
    138138          (env-extend! ((ode 'env-extend!) new-env))
    139139          (eqdef!  ((ode 'eqdef!) new-env)))
    140       (print "fptype = " fptype)
    141140      (if (not (environment-includes? sys 'std-normal-sample))
    142141          (let* ((randn!  (if (equal? fptype 'double)
Note: See TracChangeset for help on using the changeset viewer.