Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed unused code

Browse source
This commit is contained in:
Justin Ethier 2015-08-21 01:45:47 -04:00
parent 026eaa6130
commit c46e311945
1 changed files with 0 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/cyclone/transforms.sld
View file

@ -111,7 +111,6 @@
cell-get->cell cell-get->cell
expand expand
let=>lambda let=>lambda
letrec=>lets+sets
isolate-globals isolate-globals
has-global? has-global?
global-vars global-vars
@ -915,22 +914,6 @@
(else (else
(error "unknown exp: " exp)))) (error "unknown exp: " exp))))
; TODO: eventually, merge below functions with above *defined-macros* defs and
;; replace both with a lib of (define-syntax) constructs
; letrec=>lets+sets : letrec-exp -> exp
(define (letrec=>lets+sets exp)
(if (letrec? exp)
(let* ((bindings (letrec->bindings exp))
(namings (map (lambda (b) (list (car b) #f)) bindings))
(names (letrec->bound-vars exp))
(sets (map (lambda (binding)
(cons 'set! binding))
bindings))
(args (letrec->args exp)))
`(let ,namings
(begin ,@(append sets (letrec->exp exp)))))))
;; Top-level analysis ;; Top-level analysis
; Separate top-level defines (globals) from other expressions ; Separate top-level defines (globals) from other expressions