changeset 657:1900b396f764

isimage: make simpler
author carandraug
date Mon, 15 Oct 2012 21:51:42 +0000
parents 9fe1487ddab7
children 24d88d1a329d
files inst/private/isimage.m
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/inst/private/isimage.m
+++ b/inst/private/isimage.m
@@ -16,9 +16,6 @@
 ## This a private function for the is... type of functions for the image package
 ## It simply checks if the input really is an image.
 
-function bool = isimage (img)
-  bool = true;
-  if (!ismatrix (img) || issparse (img) || isempty (img) || !isreal (img))
-    bool = false;
-  endif
+function retval = isimage (img)
+  retval = (ismatrix (img) && !issparse (img) && !isempty (img) && isreal (img));
 endfunction