projects
/
scheme.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix flat-map
[scheme.git]
/
codegen.scm
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"))
('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)
(define wordsize 8)
(define (codegen-let bindings body si env)