From 8894a56619450d998be2cbbfd45c70f16d642936 Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Fri, 2 Aug 2019 16:09:07 +0100
Subject: [PATCH] Remove redundant range definition

---
 codegen.scm | 5 -----
 1 file changed, 5 deletions(-)

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)
-- 
2.30.2