Fix bug with -keep-c option when combined with -exe (Bug #142).

gambit · Jan 24, 2011 · edc5066 · edc5066
1 parent d0bbc06
commit edc5066
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/gsi/main.scm b/gsi/main.scm
@@ -1,6 +1,6 @@
 ;;;============================================================================
 
-;;; File: "main.scm", Time-stamp: <2010-11-30 17:01:58 feeley>
+;;; File: "main.scm", Time-stamp: <2011-01-24 11:54:13 feeley>
 
 ;;; Copyright (c) 1994-2009 by Marc Feeley, All Rights Reserved.
 
@@ -386,7 +386,8 @@
                                                             #f)))
                                                       (add-obj-file obj-file)
                                                       (add-tmp-file obj-file)
-                                                      (add-tmp-file gen-c-file))))))
+                                                      (if (##not (##memq 'keep-c sym-opts))
+                                                          (add-tmp-file gen-c-file)))))))
                                            (loop2 rest))))))
 
                             (let* ((flat?
@@ -441,7 +442,7 @@
                                                             #f)))
                                                       (add-obj-file obj-link-file)
                                                       (add-tmp-file obj-link-file)
-                                                      (if (##not (##memq 'keep-c options))
+                                                      (if (##not (##memq 'keep-c sym-opts))
                                                           (add-tmp-file link-file))))
                                                 roots))))
 

diff --git a/include/stamp.h b/include/stamp.h
@@ -2,5 +2,5 @@
  * Time stamp of last source code repository commit.
  */
 
-#define ___STAMP_YMD 20110122
+#define ___STAMP_YMD 20110124
-#define ___STAMP_HMS 51102
+#define ___STAMP_HMS 183244