diff --git a/libguile/_scm.h b/libguile/_scm.h
index cf89f2b70..f5a07d2ab 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -89,18 +89,6 @@
 #include "libguile/strings.h"
 
 
-/* Return the first integer greater than or equal to LEN such that
-   LEN % ALIGN == 0.  Return LEN if ALIGN is zero.  */
-#define ROUND_UP(len, align)					\
-  ((align) ? (((len) - 1UL) | ((align) - 1UL)) + 1UL : (len))
-
-#if (defined __GNUC__)
-# define SCM_NOINLINE __attribute__ ((__noinline__))
-#else
-# define SCM_NOINLINE /* noinline */
-#endif
-
-
 #endif  /* SCM__SCM_H */
 
 /*
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 67c7d4153..ab7524ecf 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -44,6 +44,11 @@
 
 
 
+/* Return the first integer greater than or equal to LEN such that
+   LEN % ALIGN == 0.  Return LEN if ALIGN is zero.  */
+#define ROUND_UP(len, align)					\
+  ((align) ? (((len) - 1UL) | ((align) - 1UL)) + 1UL : (len))
+
 SCM_SYMBOL (sym_void, "void");
 SCM_SYMBOL (sym_float, "float");
 SCM_SYMBOL (sym_double, "double");
diff --git a/libguile/vm.c b/libguile/vm.c
index a5e72147b..76288cdd8 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -59,6 +59,12 @@
 #include "libguile/vm.h"
 #include "libguile/vm-builtins.h"
 
+#if (defined __GNUC__)
+# define SCM_NOINLINE __attribute__ ((__noinline__))
+#else
+# define SCM_NOINLINE /* noinline */
+#endif
+
 static int vm_default_engine = SCM_VM_REGULAR_ENGINE;
 
 /* Unfortunately we can't snarf these: snarfed things are only loaded up from
@@ -240,6 +246,11 @@ static void vm_dispatch_pop_continuation_hook
 static void vm_dispatch_next_hook (struct scm_vm *vp) SCM_NOINLINE;
 static void vm_dispatch_abort_hook (struct scm_vm *vp) SCM_NOINLINE;
 
+/* Return the first integer greater than or equal to LEN such that
+   LEN % ALIGN == 0.  Return LEN if ALIGN is zero.  */
+#define ROUND_UP(len, align)					\
+  ((align) ? (((len) - 1UL) | ((align) - 1UL)) + 1UL : (len))
+
 static void
 vm_dispatch_hook (struct scm_vm *vp, int hook_num,
                   union scm_vm_stack_element *argv, int n)