# HG changeset patch
# User jwe
# Date 830308444 0
# Node ID 4d43f960f2cc6128903ec6073e9fe85768afddec
# Parent  2d03b8eb891da8957c5a1a1394eaa425b501997b
[project @ 1996-04-24 01:12:59 by jwe]

diff --git a/src/gripes.cc b/src/gripes.cc
--- a/src/gripes.cc
+++ b/src/gripes.cc
@@ -29,6 +29,12 @@
 #include "pt-const.h"
 
 void
+gripe_not_supported (const char *fcn)
+{
+  error ("%s: not supported on this system", fcn);
+}
+
+void
 gripe_string_invalid (void)
 {
   error ("string constant used in invalid context");
diff --git a/src/gripes.h b/src/gripes.h
--- a/src/gripes.h
+++ b/src/gripes.h
@@ -25,6 +25,7 @@
 
 class tree_constant;
 
+extern void gripe_not_supported (void);
 extern void gripe_string_invalid (void);
 extern void gripe_range_invalid (void);
 extern void gripe_nonconformant (void);
diff --git a/src/syscalls.cc b/src/syscalls.cc
--- a/src/syscalls.cc
+++ b/src/syscalls.cc
@@ -43,6 +43,7 @@
 #include "defun.h"
 #include "error.h"
 #include "file-ops.h"
+#include "gripes.h"
 #include "help.h"
 #include "lo-utils.h"
 #include "oct-map.h"
@@ -81,12 +82,6 @@
   return m;
 }
 
-static void
-gripe_not_supported (const char *fcn)
-{
-  error ("%s: not supported on this system", fcn);
-}
-
 DEFUN(dup2, args, ,
  "fid = dup2 (old, new)")
 {
diff --git a/src/toplev.cc b/src/toplev.cc
--- a/src/toplev.cc
+++ b/src/toplev.cc
@@ -720,7 +720,7 @@
   else
     print_usage ("atexit");
 #else
-  error ("atexit: not supported on this system");
+  gripe_not_supported ("atexit");
 #endif
 
   return retval;