diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-10-31 00:24:03 +0100 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-10-31 00:24:03 +0100 |
commit | 776255b6ac4c65cafad6a4d5f03380895d31ea96 (patch) | |
tree | 6bbb34538b59b3b6365f7b4de9b385d0e3c41ee3 /numerics.scm | |
parent | f81bd20a17bbbccde1154046c6ec70805e4be71b (diff) |
New upstream version 17
Diffstat (limited to 'numerics.scm')
-rw-r--r-- | numerics.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/numerics.scm b/numerics.scm index 807047f..5213973 100644 --- a/numerics.scm +++ b/numerics.scm @@ -78,7 +78,7 @@ ;0 <= m <= L and -1<= x <= 1 (x real) (if (or (not (<= 0 m L)) (> (abs x) 1.0)) - (snd-error "invalid arguments to plgndr") + (error 'wrong-type-arg "invalid arguments to plgndr: ~A ~A ~A" L m x) (let ((pmm 1.0) (fact 0.0) (somx2 0.0)) @@ -486,7 +486,7 @@ (cond ((zero? m) 0) - ((zero? n) (error "divide by zero (sin-m*pi/n n = 0)")) + ((zero? n) (error 'divide-by-zero "divide by zero (sin-m*pi/n n = 0)")) ((= n 1) 0) |