From 6d4c85766e043c0ebefec622b4552181bab870c1 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 7 Jan 2016 22:45:16 -0500 Subject: [PATCH] Added define-c --- cyclone.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/cyclone.scm b/cyclone.scm index b43e72f9..100e7fb8 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -212,12 +212,16 @@ (set! input-program (map (lambda (expr) - (if (define? expr) + (cond + ((define? expr) ;; Global - `(define ,(define->var expr) - ,@(caddr (closure-convert (define->exp expr) globals))) + `(define ,(define->var expr) + ,@(caddr (closure-convert (define->exp expr) globals)))) + ((define-c? expr) + expr) + (else (caddr ;; Strip off superfluous lambda - (closure-convert expr globals)))) + (closure-convert expr globals))))) input-program)) ; (caddr ;; Strip off superfluous lambda ; (closure-convert input-program)))