From 3f2bddea8b13ac77f6aad8186db9fb23a703bc01 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 7 Mar 2016 22:58:54 -0500 Subject: [PATCH] WIP --- debug/compilation/tmp.scm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/debug/compilation/tmp.scm b/debug/compilation/tmp.scm index 803fb27d..d6b7df7d 100644 --- a/debug/compilation/tmp.scm +++ b/debug/compilation/tmp.scm @@ -83,7 +83,7 @@ (error "unknown ast" ast)))) (define (cps-list asts inner) -(trace:error `(cps-list ,asts ,inner)) +;(trace:error `(cps-list ,asts ,inner)) (define (body x) (cps-list (cdr asts) (lambda (new-asts) @@ -95,8 +95,9 @@ (ref? (car asts))) (body (car asts))) ;; testing, probably won't work if prim calls into a cont - ;((prim-call? (car asts)) - ; (body (car asts))) ;; TODO: does nothing, not what we want! + ((prim-call? (car asts)) + (body (car asts)) + ) ;; TODO: does nothing, not what we want! ;; END testing (else (let ((r (gensym 'r))) @@ -136,13 +137,10 @@ (trace:error (my-cps-convert - '((define test (lambda (a$3 b$2 c$1) (write (cons (+ a$3 b$2 c$1) (- a$3 b$2 c$1))))) ((lambda () 0 (test 1 2 3)))) + '(write (cons (list (list 1 2 3)) (cons 2 3))) )) (trace:error (my-cps-convert - '((define test (lambda (a$3 b$2 c$1) (write - (cons - ((lambda (x y z) (list x y z)) 1 2 3) - (cons (+ a$3 b$2 c$1) (- a$3 b$2 c$1))))) ((lambda () 0 (test 1 2 3)))) -))) + '(list + (list 1 2 3))))