stlc+define+cons: add void at end of list of es

2014-09-16 18:56:09 -04:00 · 2014-09-16 18:56:09 -04:00 · 98169cd383
commit 98169cd383
parent dd06ab92f5
1 changed files with 2 additions and 1 deletions
--- a/stlc+define+cons.rkt
+++ b/stlc+define+cons.rkt
@ -317,7 +317,8 @@
                         deftype ...
                         ;structdef ...
                         deffn ...
-                         e ...))
+                         e ...
+                         (void)))
 ;        #,(expand/df #'(let-values ([def-val-lhs def-val-rhs] ...)
 ;                         (let-syntax ([def-syn-lhs def-syn-rhs] ...)
 ;                           (letrec-values ([f v] ...) e ... (void)))))