```--- a/inst/bohmanwin.m
+++ b/inst/bohmanwin.m
@@ -14,34 +14,34 @@
## this program; if not, see <http://www.gnu.org/licenses/>.

## -*- texinfo -*-
-## @deftypefn {Function File} {[@var{w}] =} bohmanwin (@var{L})
-## Compute the Bohman window of length @var{L}.
+## @deftypefn {Function File} {[@var{w}] =} bohmanwin (@var{m})
+## Compute the Bohman window of length @var{m}.
## @seealso{rectwin, bartlett}
## @end deftypefn

-function [w] = bohmanwin(L)
+function [w] = bohmanwin(m)

if (nargin < 1)
print_usage
-  elseif(! isscalar(L))
-    error("L must be a number");
-  elseif(L < 0)
-    error('L must be positive');
+  elseif(! isscalar(m))
+    error("M must be a number");
+  elseif(m < 0)
+    error('M must be positive');
endif

-  if(L ~= floor(L))
-    L = round(L);
-    warning('L rounded to the nearest integer.');
+  if(m ~= floor(m))
+    m = round(m);
+    warning('M rounded to the nearest integer.');
endif

-  if(L == 0)
+  if(m == 0)
w = [];

-  elseif(L == 1)
+  elseif(m == 1)
w = 1;

else
-    N = L-1;
+    N = m - 1;
n = -N/2:N/2;

w = (1-2.*abs(n)./N).*cos(2.*pi.*abs(n)./N) + (1./pi).*sin(2.*pi.*abs(n)./N);
```