From 9d26dc8531b77a4c45d0fb4804b1b9cb5f85910e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 29 Oct 2018 12:56:16 -0400 Subject: [PATCH] Remove old test file --- test-eval-compilation.scm | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 test-eval-compilation.scm diff --git a/test-eval-compilation.scm b/test-eval-compilation.scm deleted file mode 100644 index 2a64e87d..00000000 --- a/test-eval-compilation.scm +++ /dev/null @@ -1,22 +0,0 @@ -;; A temporary test file -(import (scheme base) (scheme write)) - -(define (analyze . opts) - (write 'test)) - -(define (analyze-if exp a-env rename-env local-renamed) - (let ((pproc (analyze (if-predicate exp) a-env rename-env local-renamed)) - (cproc (analyze (if-consequent exp) a-env rename-env local-renamed)) - (aproc (analyze (if-alternative exp) a-env rename-env local-renamed))) - (lambda (env) - (if (pproc env) - (cproc env) - (aproc env))))) -(define (if-predicate exp) (cadr exp)) -(define (if-consequent exp) (caddr exp)) -(define (if-alternative exp) - (if (not (null? (cdddr exp))) ;; TODO: add (not) support - (cadddr exp) - #f)) - -(write (analyze-if 'a 'b 'c 'd))