# HG changeset patch
# User jwe
# Date 763171611 0
# Node ID 568caeb70630ca075d546a8e757f061b7364a6d7
# Parent  80b85cc1c0821c340691bd6b2759b011f8089713
[project @ 1994-03-09 00:06:51 by jwe]

diff -r 80b85cc1c082 -r 568caeb70630 scripts/linear-algebra/norm.m
--- a/scripts/linear-algebra/norm.m	Tue Mar 08 05:34:38 1994 +0000
+++ b/scripts/linear-algebra/norm.m	Wed Mar 09 00:06:51 1994 +0000
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 John W. Eaton
+# Copyright (C) 1993, 1994 John W. Eaton
 # 
 # This file is part of Octave.
 # 
@@ -47,6 +47,11 @@
     error ("usage: norm (x [, p])")
   endif
 
+  if (isempty (x))
+    retval = [];
+    return;
+  endif
+
 # Do we have a vector or matrix as the first argument?
 
   if (rows (x) == 1 || columns (x) == 1)