X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=codegen.scm;h=10e005f8ad90e840aad396da4a0cdb5032163f6c;hb=844dcd052c6f551d9936693c2b4c49cf920c7051;hp=fb856a54a7da63314890bc6c739ce9cc03c69a01;hpb=a64f7097fa246c19a4c69d0aad65e60378273887;p=scheme.git

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)