Mercurial > hg > octave-nkf

diff src/defun.h @ 1755:3a9462b655f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-01-22 04:47:22 by jwe]
author jwe
date Mon, 22 Jan 1996 04:47:22 +0000
parents 89c587478067
children e62277bf5fe0
line wrap: on
line diff
--- a/src/defun.h
+++ b/src/defun.h
@@ -63,17 +63,10 @@
 		   sv_fcn, doc) \
   do \
     { \
-      builtin_variable sname = \
-	{ \
-	  name, \
-	  new tree_constant (defn), \
-	  inst_as_fcn, \
-	  protect, \
-	  (sv_fcn ? 1 : 0), \
-	  sv_fcn, \
-	  doc, \
-	}; \
-      install_builtin_variable (&sname); \
+      builtin_variable sname (name, new tree_constant (defn), \
+			      inst_as_fcn, protect, (sv_fcn ? 1 : 0), \
+			      sv_fcn, doc); \
+      install_builtin_variable (sname); \
     } \
   while (0)
 
@@ -160,18 +153,10 @@
 		     d_d_map, d_c_map, c_c_map, doc) \
   do \
     { \
-      builtin_mapper_function sname = \
-	{ \
-	  name, \
-	  can_ret_cmplx_for_real, \
-	  lo, \
-	  hi, \
-	  d_d_map, \
-	  d_c_map, \
-	  c_c_map, \
-	  doc, \
-	}; \
-      install_builtin_mapper (&sname); \
+      builtin_mapper_function sname (name, can_ret_cmplx_for_real, \
+				     lo, hi, d_d_map, d_c_map, \
+				     c_c_map, doc); \
+      install_builtin_mapper (sname); \
     } \
   while (0)