adjust generated #ifdefs in FFI

Make sure `#` is start at the start of the line using
the `IFDEF` function, although we'll probably never
again use a compiler old enough for this to matter.

racket/src/foreign/foreign.c

@@ -4335,327 +4335,327 @@ static Scheme_Object *foreign_lookup_errno(int argc, Scheme_Object *argv[])
 # ifdef E2BIG
   if (!strcmp("E2BIG", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(E2BIG);
-  #endif
+# endif /* E2BIG */
 # ifdef EACCES
   if (!strcmp("EACCES", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EACCES);
-  #endif
+# endif /* EACCES */
 # ifdef EADDRINUSE
   if (!strcmp("EADDRINUSE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EADDRINUSE);
-  #endif
+# endif /* EADDRINUSE */
 # ifdef EADDRNOTAVAIL
   if (!strcmp("EADDRNOTAVAIL", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EADDRNOTAVAIL);
-  #endif
+# endif /* EADDRNOTAVAIL */
 # ifdef EAFNOSUPPORT
   if (!strcmp("EAFNOSUPPORT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EAFNOSUPPORT);
-  #endif
+# endif /* EAFNOSUPPORT */
 # ifdef EAGAIN
   if (!strcmp("EAGAIN", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EAGAIN);
-  #endif
+# endif /* EAGAIN */
 # ifdef EALREADY
   if (!strcmp("EALREADY", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EALREADY);
-  #endif
+# endif /* EALREADY */
 # ifdef EBADF
   if (!strcmp("EBADF", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EBADF);
-  #endif
+# endif /* EBADF */
 # ifdef EBADMSG
   if (!strcmp("EBADMSG", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EBADMSG);
-  #endif
+# endif /* EBADMSG */
 # ifdef EBUSY
   if (!strcmp("EBUSY", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EBUSY);
-  #endif
+# endif /* EBUSY */
 # ifdef ECANCELED
   if (!strcmp("ECANCELED", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ECANCELED);
-  #endif
+# endif /* ECANCELED */
 # ifdef ECHILD
   if (!strcmp("ECHILD", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ECHILD);
-  #endif
+# endif /* ECHILD */
 # ifdef ECONNABORTED
   if (!strcmp("ECONNABORTED", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ECONNABORTED);
-  #endif
+# endif /* ECONNABORTED */
 # ifdef ECONNREFUSED
   if (!strcmp("ECONNREFUSED", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ECONNREFUSED);
-  #endif
+# endif /* ECONNREFUSED */
 # ifdef ECONNRESET
   if (!strcmp("ECONNRESET", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ECONNRESET);
-  #endif
+# endif /* ECONNRESET */
 # ifdef EDEADLK
   if (!strcmp("EDEADLK", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EDEADLK);
-  #endif
+# endif /* EDEADLK */
 # ifdef EDESTADDRREQ
   if (!strcmp("EDESTADDRREQ", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EDESTADDRREQ);
-  #endif
+# endif /* EDESTADDRREQ */
 # ifdef EDOM
   if (!strcmp("EDOM", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EDOM);
-  #endif
+# endif /* EDOM */
 # ifdef EDQUOT
   if (!strcmp("EDQUOT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EDQUOT);
-  #endif
+# endif /* EDQUOT */
 # ifdef EEXIST
   if (!strcmp("EEXIST", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EEXIST);
-  #endif
+# endif /* EEXIST */
 # ifdef EFAULT
   if (!strcmp("EFAULT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EFAULT);
-  #endif
+# endif /* EFAULT */
 # ifdef EFBIG
   if (!strcmp("EFBIG", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EFBIG);
-  #endif
+# endif /* EFBIG */
 # ifdef EHOSTUNREACH
   if (!strcmp("EHOSTUNREACH", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EHOSTUNREACH);
-  #endif
+# endif /* EHOSTUNREACH */
 # ifdef EIDRM
   if (!strcmp("EIDRM", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EIDRM);
-  #endif
+# endif /* EIDRM */
 # ifdef EILSEQ
   if (!strcmp("EILSEQ", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EILSEQ);
-  #endif
+# endif /* EILSEQ */
 # ifdef EINPROGRESS
   if (!strcmp("EINPROGRESS", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EINPROGRESS);
-  #endif
+# endif /* EINPROGRESS */
 # ifdef EINTR
   if (!strcmp("EINTR", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EINTR);
-  #endif
+# endif /* EINTR */
 # ifdef EINVAL
   if (!strcmp("EINVAL", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EINVAL);
-  #endif
+# endif /* EINVAL */
 # ifdef EIO
   if (!strcmp("EIO", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EIO);
-  #endif
+# endif /* EIO */
 # ifdef EISCONN
   if (!strcmp("EISCONN", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EISCONN);
-  #endif
+# endif /* EISCONN */
 # ifdef EISDIR
   if (!strcmp("EISDIR", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EISDIR);
-  #endif
+# endif /* EISDIR */
 # ifdef ELOOP
   if (!strcmp("ELOOP", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ELOOP);
-  #endif
+# endif /* ELOOP */
 # ifdef EMFILE
   if (!strcmp("EMFILE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EMFILE);
-  #endif
+# endif /* EMFILE */
 # ifdef EMLINK
   if (!strcmp("EMLINK", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EMLINK);
-  #endif
+# endif /* EMLINK */
 # ifdef EMSGSIZE
   if (!strcmp("EMSGSIZE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EMSGSIZE);
-  #endif
+# endif /* EMSGSIZE */
 # ifdef EMULTIHOP
   if (!strcmp("EMULTIHOP", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EMULTIHOP);
-  #endif
+# endif /* EMULTIHOP */
 # ifdef ENAMETOOLONG
   if (!strcmp("ENAMETOOLONG", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENAMETOOLONG);
-  #endif
+# endif /* ENAMETOOLONG */
 # ifdef ENETDOWN
   if (!strcmp("ENETDOWN", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENETDOWN);
-  #endif
+# endif /* ENETDOWN */
 # ifdef ENETRESET
   if (!strcmp("ENETRESET", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENETRESET);
-  #endif
+# endif /* ENETRESET */
 # ifdef ENETUNREACH
   if (!strcmp("ENETUNREACH", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENETUNREACH);
-  #endif
+# endif /* ENETUNREACH */
 # ifdef ENFILE
   if (!strcmp("ENFILE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENFILE);
-  #endif
+# endif /* ENFILE */
 # ifdef ENOBUFS
   if (!strcmp("ENOBUFS", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOBUFS);
-  #endif
+# endif /* ENOBUFS */
 # ifdef ENODATA
   if (!strcmp("ENODATA", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENODATA);
-  #endif
+# endif /* ENODATA */
 # ifdef ENODEV
   if (!strcmp("ENODEV", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENODEV);
-  #endif
+# endif /* ENODEV */
 # ifdef ENOENT
   if (!strcmp("ENOENT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOENT);
-  #endif
+# endif /* ENOENT */
 # ifdef ENOEXEC
   if (!strcmp("ENOEXEC", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOEXEC);
-  #endif
+# endif /* ENOEXEC */
 # ifdef ENOLCK
   if (!strcmp("ENOLCK", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOLCK);
-  #endif
+# endif /* ENOLCK */
 # ifdef ENOLINK
   if (!strcmp("ENOLINK", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOLINK);
-  #endif
+# endif /* ENOLINK */
 # ifdef ENOMEM
   if (!strcmp("ENOMEM", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOMEM);
-  #endif
+# endif /* ENOMEM */
 # ifdef ENOMSG
   if (!strcmp("ENOMSG", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOMSG);
-  #endif
+# endif /* ENOMSG */
 # ifdef ENOPROTOOPT
   if (!strcmp("ENOPROTOOPT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOPROTOOPT);
-  #endif
+# endif /* ENOPROTOOPT */
 # ifdef ENOSPC
   if (!strcmp("ENOSPC", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOSPC);
-  #endif
+# endif /* ENOSPC */
 # ifdef ENOSR
   if (!strcmp("ENOSR", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOSR);
-  #endif
+# endif /* ENOSR */
 # ifdef ENOSTR
   if (!strcmp("ENOSTR", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOSTR);
-  #endif
+# endif /* ENOSTR */
 # ifdef ENOSYS
   if (!strcmp("ENOSYS", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOSYS);
-  #endif
+# endif /* ENOSYS */
 # ifdef ENOTCONN
   if (!strcmp("ENOTCONN", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTCONN);
-  #endif
+# endif /* ENOTCONN */
 # ifdef ENOTDIR
   if (!strcmp("ENOTDIR", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTDIR);
-  #endif
+# endif /* ENOTDIR */
 # ifdef ENOTEMPTY
   if (!strcmp("ENOTEMPTY", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTEMPTY);
-  #endif
+# endif /* ENOTEMPTY */
 # ifdef ENOTRECOVERABLE
   if (!strcmp("ENOTRECOVERABLE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTRECOVERABLE);
-  #endif
+# endif /* ENOTRECOVERABLE */
 # ifdef ENOTSOCK
   if (!strcmp("ENOTSOCK", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTSOCK);
-  #endif
+# endif /* ENOTSOCK */
 # ifdef ENOTSUP
   if (!strcmp("ENOTSUP", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTSUP);
-  #endif
+# endif /* ENOTSUP */
 # ifdef ENOTTY
   if (!strcmp("ENOTTY", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENOTTY);
-  #endif
+# endif /* ENOTTY */
 # ifdef ENXIO
   if (!strcmp("ENXIO", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ENXIO);
-  #endif
+# endif /* ENXIO */
 # ifdef EOPNOTSUPP
   if (!strcmp("EOPNOTSUPP", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EOPNOTSUPP);
-  #endif
+# endif /* EOPNOTSUPP */
 # ifdef EOVERFLOW
   if (!strcmp("EOVERFLOW", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EOVERFLOW);
-  #endif
+# endif /* EOVERFLOW */
 # ifdef EOWNERDEAD
   if (!strcmp("EOWNERDEAD", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EOWNERDEAD);
-  #endif
+# endif /* EOWNERDEAD */
 # ifdef EPERM
   if (!strcmp("EPERM", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EPERM);
-  #endif
+# endif /* EPERM */
 # ifdef EPIPE
   if (!strcmp("EPIPE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EPIPE);
-  #endif
+# endif /* EPIPE */
 # ifdef EPROTO
   if (!strcmp("EPROTO", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EPROTO);
-  #endif
+# endif /* EPROTO */
 # ifdef EPROTONOSUPPORT
   if (!strcmp("EPROTONOSUPPORT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EPROTONOSUPPORT);
-  #endif
+# endif /* EPROTONOSUPPORT */
 # ifdef EPROTOTYPE
   if (!strcmp("EPROTOTYPE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EPROTOTYPE);
-  #endif
+# endif /* EPROTOTYPE */
 # ifdef ERANGE
   if (!strcmp("ERANGE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ERANGE);
-  #endif
+# endif /* ERANGE */
 # ifdef EROFS
   if (!strcmp("EROFS", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EROFS);
-  #endif
+# endif /* EROFS */
 # ifdef ESPIPE
   if (!strcmp("ESPIPE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ESPIPE);
-  #endif
+# endif /* ESPIPE */
 # ifdef ESRCH
   if (!strcmp("ESRCH", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ESRCH);
-  #endif
+# endif /* ESRCH */
 # ifdef ESTALE
   if (!strcmp("ESTALE", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ESTALE);
-  #endif
+# endif /* ESTALE */
 # ifdef ETIME
   if (!strcmp("ETIME", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ETIME);
-  #endif
+# endif /* ETIME */
 # ifdef ETIMEDOUT
   if (!strcmp("ETIMEDOUT", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ETIMEDOUT);
-  #endif
+# endif /* ETIMEDOUT */
 # ifdef ETXTBSY
   if (!strcmp("ETXTBSY", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(ETXTBSY);
-  #endif
+# endif /* ETXTBSY */
 # ifdef EWOULDBLOCK
   if (!strcmp("EWOULDBLOCK", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EWOULDBLOCK);
-  #endif
+# endif /* EWOULDBLOCK */
 # ifdef EXDEV
   if (!strcmp("EXDEV", SCHEME_SYM_VAL(v)))
     return scheme_make_integer(EXDEV);
-  #endif
+# endif /* EXDEV */
   return scheme_false;
 }
 #undef MYNAME

racket/src/foreign/foreign.rktc

@@ -3568,11 +3568,9 @@ static void save_errno_values(int kind)
         return scheme_false;
       @(add-newlines
         (for/list ([e standard-errnos])
-          @string-append{
+            @@IFDEF{@symbol->string[e]}{
-            #ifdef @symbol->string[e]
             if (!strcmp("@symbol->string[e]", SCHEME_SYM_VAL(v)))
               return scheme_make_integer(@symbol->string[e]);
-            #endif
             }))
       return scheme_false;
     })