diff src/data.c @ 179:9ad43877534d r20-3b16

Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents 2d532a89d707
children 3d6bfa290dbd
line wrap: on
line diff
--- a/src/data.c	Mon Aug 13 09:51:18 2007 +0200
+++ b/src/data.c	Mon Aug 13 09:52:19 2007 +0200
@@ -930,11 +930,10 @@
        (function))
 {
   CHECK_COMPILED_FUNCTION (function);
-  if (!XCOMPILED_FUNCTION (function)->flags.interactivep)
-    return Qnil;
-  return (list2 (Qinteractive,
-		 compiled_function_interactive
-		 (XCOMPILED_FUNCTION (function))));
+  return XCOMPILED_FUNCTION (function)->flags.interactivep
+    ? list2 (Qinteractive,
+	     compiled_function_interactive (XCOMPILED_FUNCTION (function)))
+    : Qnil;
 }
 
 DEFUN ("compiled-function-doc-string", Fcompiled_function_doc_string, 1, 1, 0, /*
@@ -945,7 +944,6 @@
        (function))
 {
   CHECK_COMPILED_FUNCTION (function);
-
   return compiled_function_documentation (XCOMPILED_FUNCTION (function));
 }
 
@@ -975,9 +973,9 @@
        (function))
 {
   CHECK_COMPILED_FUNCTION (function);
-  if (!XCOMPILED_FUNCTION (function)->flags.domainp)
-    return Qnil;
-  return compiled_function_domain (XCOMPILED_FUNCTION (function));
+  return XCOMPILED_FUNCTION (function)->flags.domainp
+    ? compiled_function_domain (XCOMPILED_FUNCTION (function))
+    : Qnil;
 }