Ignore:
Timestamp:
04/16/14 03:16:03 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: use default value for npts argument of processes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/picnic-core.scm

    r30710 r30716  
    733733                                  ))
    734734
    735                               (if (not npts)
    736                                   (picnic:error 'env-extend! "process definitions require number of points"))
    737                              
    738735                              (let ((initial-expr
    739736                                     (and initial
     
    741738                                                          (sprintf "initial value for process ~A" sym)))))
    742739
    743                                 (hash-table-set! picnic-env sym (PS name gfun initial-expr npts)))
     740                                (hash-table-set! picnic-env sym (PS name gfun initial-expr (or npts 3))))
    744741                             
    745742                              ))
Note: See TracChangeset for help on using the changeset viewer.