From 1a8a6dee2156937853f8b7d579738bb5830b1057 Mon Sep 17 00:00:00 2001
From: Bob Burger <burgerrg@gmail.com>
Date: Thu, 28 Dec 2017 10:54:03 -0500
Subject: [PATCH] fix comment about Sscheme_program

original commit: abb991bcd87f64eeae9a3848959191a4da5d6542
---
 LOG      | 2 ++
 c/main.c | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/LOG b/LOG
index b49cc39022..7b76ad546e 100644
--- a/LOG
+++ b/LOG
@@ -768,3 +768,5 @@
     5_5.ms
 - fix a few signatures
     primdata.ss
+- fix comment about Sscheme_program
+    main.c
diff --git a/c/main.c b/c/main.c
index ba9be6d5a3..8e697178bf 100644
--- a/c/main.c
+++ b/c/main.c
@@ -333,7 +333,7 @@ int main(int argc, const char *argv[]) {
    /* Sscheme_script invokes the value of the scheme-script parameter */
     status = Sscheme_script(scriptfile, new_argc, argv);
   else if (programfile != (char *)0)
-   /* Sscheme_script invokes the value of the scheme-script parameter */
+   /* Sscheme_program invokes the value of the scheme-program parameter */
     status = Sscheme_program(programfile, new_argc, argv);
   else {
    /* Sscheme_start invokes the value of the scheme-start parameter */