Continue reforming procedure execution. In this phase, get rid of

[pspp-builds.git] / src / language / expressions / parse.c

diff --git a/src/language/expressions/parse.c b/src/language/expressions/parse.c
index fdd460824e6b5c9d0435c38d9a97665c8bc7c7b7..b6c8076ce4a1fbb3b2fbdf33ce270dd8ec121b07 100644 (file)
--- a/src/language/expressions/parse.c
+++ b/src/language/expressions/parse.c
@@ -1222,7 +1222,7 @@ parse_function (struct expression *e)
       msg (SE, _("%s is not yet implemented."), f->prototype);
       goto fail;
     }
-  if ((f->flags & OPF_PERM_ONLY) && temporary != 0) 
+  if ((f->flags & OPF_PERM_ONLY) && proc_in_temporary_transformations ()) 
     {
       msg (SE, _("%s may not appear after TEMPORARY."), f->prototype);
       goto fail;