From 8fa651357113846183cda3f28e35314b2f7e628d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 14 Nov 2018 19:01:34 -0500 Subject: [PATCH] Fix parens --- scheme/cyclone/cgen.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 96a38f6b..5b9f9f3f 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -1182,9 +1182,10 @@ args))) exps)) ((equal? 'Cyc-local-set! fun) + ;:(trace:error `(JAE DEBUG Cyc-local-set ,exp)) (let ((val-exp (c-compile-exp (caddr exp) append-preamble cont ast-id trace cps?))) (c-code/vars - (string-append (mangle (cadr exp) " = " (c:body val-exp) ";")) + (string-append (mangle (cadr exp)) " = " (c:body val-exp) ";") (c:allocs val-exp))) ;(c-code (string-append (mangle (cadr exp)) " = " (mangle (caddr exp)) ";")) )