Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Debugging

Browse source
This commit is contained in:
Justin Ethier 2016-05-24 04:03:55 -04:00
parent a2138e6dc0
commit 3dc541c99b
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cps-optimizations.sld
View file

@ -325,7 +325,6 @@
(let ((new-params '()) (let ((new-params '())
(new-args '()) (new-args '())
(args (cdr exp))) (args (cdr exp)))
;(trace:error `(DEBUG contract ,args ,(ast:lambda-args (car exp)) ,exp))
(for-each (for-each
(lambda (param) (lambda (param)
(let ((var (adb:get/default param #f))) (let ((var (adb:get/default param #f)))
@ -338,6 +337,10 @@
(set! new-params (cons param new-params)))) (set! new-params (cons param new-params))))
(set! args (cdr args)))) (set! args (cdr args))))
(ast:lambda-args (car exp))) (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 (map
opt:contract opt:contract
(cons (cons