[fix] in gaussian: pass only mean and std defaults (fix #19)

digikar99 · Jan 24, 2025 · b11c74a · b11c74a
1 parent c1f9b1f
commit b11c74a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/dense-numericals-src/random/gaussian.lisp b/dense-numericals-src/random/gaussian.lisp
@@ -23,8 +23,7 @@
       (inline-or-funcall c-name 1 r mean std)
       (cffi:mem-ref r :double))))
 
-(define-polymorphic-function gaussian (&key (loc 0) (scale 1)
-                                                 size shape (mean 0) (std 1) out type)
+(define-polymorphic-function gaussian (&key loc scale size shape (mean 0) (std 1) out type)
   :documentation "Returns a scalar or an array of shape SHAPE (or SIZE) filled with random numbers drawn from a gaussian/normal distribution centered at LOC (or MEAN) and standard deviation SCALE (or STD).
 
 If SHAPE (or SIZE) is NIL (default) and OUT is NIL, then only a scalar is returned.

diff --git a/src/random/gaussian.lisp b/src/random/gaussian.lisp
@@ -23,8 +23,7 @@
       (inline-or-funcall c-name 1 r mean std)
       (cffi:mem-ref r :double))))
 
-(define-polymorphic-function gaussian (&key (loc 0) (scale 1)
-                                                 size shape (mean 0) (std 1) out type)
+(define-polymorphic-function gaussian (&key loc scale size shape (mean 0) (std 1) out type)
   :documentation "Returns a scalar or an array of shape SHAPE (or SIZE) filled with random numbers drawn from a gaussian/normal distribution centered at LOC (or MEAN) and standard deviation SCALE (or STD).
 
 If SHAPE (or SIZE) is NIL (default) and OUT is NIL, then only a scalar is returned.