Remove redundant range definition

diff --git a/codegen.scm b/codegen.scm
index fb856a54a7da63314890bc6c739ce9cc03c69a01..10e005f8ad90e840aad396da4a0cdb5032163f6c 100644 (file)
--- 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)