Universal backend: cleanup after Java compilation of unit tests

feeley · Jun 4, 2015 · 465aa24 · 465aa24
1 parent 77c79a6
commit 465aa24
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/gsc/runtests.scm b/gsc/runtests.scm
@@ -159,7 +159,13 @@
                                   (apply run (append (cdddr t) (list out))))))
 
                          (if (not (equal? target "gambit"))
-                             (if cleanup? (delete-file out)))
+                             (if cleanup?
+                                 (begin
+                                   (delete-file out)
+                                   (if (equal? target "java")
+                                       (parameterize ((current-directory
+                                                       (path-directory out)))
+                                         (shell-command "rm Gambit_*.class"))))))
 
                          result))
 

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 20150603
-#define ___STAMP_HMS 234523
+#define ___STAMP_YMD 20150604
+#define ___STAMP_HMS 224837