From 6e607f4788b5e289375dba260acc356c12fbd3c2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 19 May 2020 22:50:22 -0400
Subject: [PATCH] Issue #377 - Compile void type

---
 scheme/cyclone/cgen.sld | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 1777dafa..43a81887 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -625,6 +625,8 @@
   (cond
     ((null? exp)
      (c:code "NULL"))
+    ((eq? (void) exp) ;; Poor man's (void?)
+     (c:code "Cyc_VOID"))
     ((pair? exp)
      (c-compile-scalars exp use-alloca immutable))
     ((vector? exp)