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

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