From 2920c227d3f8e6d8af1f2b0c3163badb95cde9b5 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Tue, 16 Sep 2008 15:02:01 +0000
Subject: 25677: add %x and %I prompt escapes for shell source code debugging
 tidy up interface to doshfunc()

---
 Src/math.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Src/math.c')

diff --git a/Src/math.c b/Src/math.c
index 1aedcde28..78f7572a5 100644
--- a/Src/math.c
+++ b/Src/math.c
@@ -868,11 +868,11 @@ callmathfunc(char *o)
 					   argc <= f->maxargs)) {
 		    if (f->flags & MFF_USERFUNC) {
 			char *shfnam = f->module ? f->module : n;
-			Eprog prog = getshfunc(shfnam);
-			if (prog == &dummy_eprog)
+			Shfunc shfunc = getshfunc(shfnam);
+			if (!shfunc)
 			    zerr("no such function: %s", shfnam);
 			else {
-			    doshfunc(n, prog, l, 0, 1);
+			    doshfunc(shfunc, l, 0, 1);
 			    return lastmathval;
 			}
 		    } else {
-- 
cgit 1.4.1