From 874ae5cd6c4479d0e95ecbf463a88cc6073691af Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 31 Oct 2019 17:08:36 -0400 Subject: [PATCH] Obsolete --- test-clo.scm | 77 ---------------------------------------------------- 1 file changed, 77 deletions(-) delete mode 100644 test-clo.scm diff --git a/test-clo.scm b/test-clo.scm deleted file mode 100644 index c805841c..00000000 --- a/test-clo.scm +++ /dev/null @@ -1,77 +0,0 @@ -;; A temporary test file -(import - (scheme base) - (scheme write)) - -;; TODO: can we prove that the define is being used like "let" and not "letrec"? -;; If so, can simplify things a bit, perhaps - -;(define (test) -; (define (fnc x y z) (write (list x y z))) -; (fnc 1 2 3) -; (fnc 1 2 3)) -;"---------------- after wrap-mutables:" -; */ -;/* -;((define test -; (lambda-1-cont -; (k$12) -; ((lambda-2 -; (fnc$5) -; ((lambda-5 -; (fnc$5) -; (Cyc-seq -; (set-cell! -; fnc$5 -; (lambda-3-cont -; (k$16 x$1$7 y$2$8 z$3$9) -; (write k$16 (Cyc-fast-list-3 x$1$7 y$2$8 z$3$9)))) -; ((cell-get fnc$5) -; (lambda-4 (r$14) ((cell-get fnc$5) k$12 1 2 3)) -; 1 -; 2 -; 3))) -; (cell fnc$5))) -; #f))) -; (test %halt)) - - -;(define (test) -; (letrec ((fnc (lambda (x y z) (write (list x y z))))) -; (fnc 1 2 3) -; (fnc 1 2 3)) -; ) - - - -(define (test) - (let ((fnc (lambda (x y z) (write (list x y z))))) - (fnc 1 2 3) - (fnc 1 2 3)) - ) -;"---------------- after macro expansion:" -; */ -;/* -;((define test -; (lambda () -; ((lambda (fnc$1) (fnc$1 1 2 3) (fnc$1 1 2 3)) -; (lambda (x$2 y$3 z$4) (write (list x$2 y$3 z$4)))))) -; (test)) -;"---------------- after wrap-mutables:" -; */ -;/* -;((define test -; (lambda-1-cont -; (k$11) -; ((lambda-2 -; (fnc$1$5) -; (fnc$1$5 -; (lambda-3 (r$13) (fnc$1$5 k$11 1 2 3)) -; 1 -; 2 -; 3)) -; (lambda-4-cont -; (k$14 x$2$6 y$3$7 z$4$8) -; (write k$14 (Cyc-fast-list-3 x$2$6 y$3$7 z$4$8)))))) -; (test %halt)) -(test)