From: Luke Lau <luke_lau@icloud.com>
Date: Fri, 2 Aug 2019 15:09:07 +0000 (+0100)
Subject: Remove redundant range definition
X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=commitdiff_plain;h=8894a56619450d998be2cbbfd45c70f16d642936

Remove redundant range definition
---

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)