X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=codegen.scm;h=10e005f8ad90e840aad396da4a0cdb5032163f6c;hp=fb856a54a7da63314890bc6c739ce9cc03c69a01;hb=8894a56619450d998be2cbbfd45c70f16d642936;hpb=d0b4fc609a2c9f51a74318bd8c93b15f4a0bbe68

diff --git a/codegen.scm b/codegen.scm
index fb856a5..10e005f 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -76,11 +76,6 @@
     ('linux  (emit "mov $1, %rax"))) ; syscall 1 (write)
   (emit "syscall"))
 
-(define (range s n)
-  (if (= 0 n) '()
-      (append (range s (- n 1))
-	      (list (+ s (- n 1))))))
-
 (define wordsize 8)
 
 (define (codegen-let bindings body si env)