From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Oct 2018 04:07:20 +0000 (-0700)
Subject: Eliminate warning about old-style function declaration.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~174^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f02efe59958f4fa8065f2c7f58c4d498e7047962;p=mit-scheme.git

Eliminate warning about old-style function declaration.
---

diff --git a/src/microcode/svm1-interp.c b/src/microcode/svm1-interp.c
index 08b77082e..9ee92f5ea 100644
--- a/src/microcode/svm1-interp.c
+++ b/src/microcode/svm1-interp.c
@@ -704,7 +704,7 @@ push_entry (uint8_t * PC)
 }
 
 static inline SCHEME_OBJECT
-pop_object ()
+pop_object (void)
 {
   SCHEME_OBJECT * sp = ((SCHEME_OBJECT *) (WREG_REF (SVM1_REG_STACK_POINTER)));
   SCHEME_OBJECT object = (STACK_LOCATIVE_POP (sp));