From dbcac2640292ad8e04c88aba48a9e6e5f6014e59 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 20 Apr 2016 00:06:43 -0400 Subject: [PATCH] Removed dead code --- examples/game-of-life-png/example/life.sld | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/examples/game-of-life-png/example/life.sld b/examples/game-of-life-png/example/life.sld index 1ea9b98d..acedcf7f 100644 --- a/examples/game-of-life-png/example/life.sld +++ b/examples/game-of-life-png/example/life.sld @@ -22,17 +22,7 @@ ((3) #t) ((2) (ref grid i j)) (else #f))) -; (define (clear-vt100) -; (display -; (string -; (integer->char #x1B) -; #\[ -; #\H -; (integer->char #x1B) -; #\[ -; #\J))) (define (life-print grid iteration) - ;(clear-vt100) (let ((img (png:init (cols grid) (rows grid))) (path (string-append "life-" @@ -41,9 +31,6 @@ ".png"))) (each grid (lambda (i j v) - ;(display (if v "*" " ")) - ;(when (= j (- (cols grid) 1)) - ; (newline)) (if v (png:set! img i j 0 250 0)) ))