Mercurial > octave

diff src/DLD-FUNCTIONS/besselj.cc @ 4153:6b96ce9f5743

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-06 20:38:49 by jwe]
author jwe
date Wed, 06 Nov 2002 20:38:50 +0000
parents f19f00339363
children 9f7ef92b50b0
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/besselj.cc	Wed Nov 06 18:41:50 2002 +0000
+++ b/src/DLD-FUNCTIONS/besselj.cc	Wed Nov 06 20:38:50 2002 +0000
@@ -25,6 +25,7 @@
 #endif
 
 #include "lo-specfun.h"
+#include "quit.h"
 
 #include "defun-dld.h"
 #include "error.h"
@@ -87,7 +88,11 @@
 
   for (int j = 0; j < nc; j++)
     for (int i = 0; i < nr; i++)
-      retval(i,j) = (double) (a(i,j));
+      {
+	OCTAVE_QUIT;
+
+	retval(i,j) = (double) (a(i,j));
+      }
 
   return retval;
 }