Oops--fix last check-in.

diff --git a/src/language/expressions/parse.c b/src/language/expressions/parse.c
index b4294c16b1dae0d39ee9b4515a43817f7cc038ba..086ef3ce0e80b4b95bcd84cb132c7cba701f9f7c 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) && in_temporary_transformations ()) 
+  if ((f->flags & OPF_PERM_ONLY) && temporary != 0) 
     {
       msg (SE, _("%s may not appear after TEMPORARY."), f->prototype);
       goto fail;