From 76ff1d5a37bfed95872167fbd21f4c15e94945cf Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 17 May 2016 00:33:20 -0400 Subject: [PATCH] Bugfix --- scheme/cyclone/cps-optimizations.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 733a6bcb..f9e83e94 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -245,7 +245,7 @@ ((quote? exp) exp) ((define? exp) `(define ,(opt:contract (define->var exp)) - ,(opt:contract (define->exp exp)))) + ,@(opt:contract (define->exp exp)))) ((set!? exp) `(set! ,(opt:contract (set!->var exp)) ,(opt:contract (set!->exp exp))))