Add printing of #!void to universal backend

gambit · Feb 25, 2014 · 496aa78 · 496aa78
1 parent a3dd342
commit 496aa78
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/gsc/_t-univ.scm b/gsc/_t-univ.scm
@@ -2801,6 +2801,9 @@ EOF
                 (^if (^eq? (^local-var "obj")
                            (^obj '()))
                      (^return (^str ""))
+                     (^if (^eq? (^local-var "obj")
+                                (^void))
+                          (^return (^str "#!void"))
                      (^if (^pair? (^local-var "obj"))
                           (^return (^concat
                                     (^call-prim
@@ -2818,7 +2821,7 @@ EOF
                                          (^return (^tostr (^local-var "obj")))))))))
 ;;)
 ;;)
-)
+))
 
     ((println)
      (^prim-function-declaration

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 20140224
+#define ___STAMP_YMD 20140225
-#define ___STAMP_HMS 35435
+#define ___STAMP_HMS 41035