From 3dc541c99bb06e62d76075b10cc8b0b62b5492e5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 24 May 2016 04:03:55 -0400 Subject: [PATCH] Debugging --- scheme/cyclone/cps-optimizations.sld | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 717c0fdf..f84fcc19 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -325,7 +325,6 @@ (let ((new-params '()) (new-args '()) (args (cdr exp))) -;(trace:error `(DEBUG contract ,args ,(ast:lambda-args (car exp)) ,exp)) (for-each (lambda (param) (let ((var (adb:get/default param #f))) @@ -338,6 +337,10 @@ (set! new-params (cons param new-params)))) (set! args (cdr args)))) (ast:lambda-args (car exp))) +;(trace:error `(DEBUG contract args ,(app->args exp) +; new-args ,new-args +; params ,(ast:lambda-args (car exp)) +; new-params ,new-params)) (map opt:contract (cons