Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add printing of #!void to universal backend

  • Loading branch information...
commit 496aa788778b8e7f8129bc4ffc8fd4fe607091ea 1 parent a3dd342
@feeley authored
Showing with 6 additions and 3 deletions.
  1. +4 −1 gsc/_t-univ.scm
  2. +2 −2 include/stamp.h
View
5 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
View
4 include/stamp.h
@@ -2,5 +2,5 @@
* Time stamp of last source code repository commit.
*/
-#define ___STAMP_YMD 20140224
-#define ___STAMP_HMS 35435
+#define ___STAMP_YMD 20140225
+#define ___STAMP_HMS 41035
Please sign in to comment.
Something went wrong with that request. Please try again.