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

WIP - renaming of library exports

Browse source
This commit is contained in:
Justin Ethier 2016-04-15 00:00:49 -04:00
parent 7d9aae56d8
commit dbb4ab83a4
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
cyclone.scm
View file

@ -68,6 +68,15 @@
(lib:exports (car input-program)))) (lib:exports (car input-program))))
(set! imports (lib:imports (car input-program))) (set! imports (lib:imports (car input-program)))
(set! input-program (lib:body (car input-program))) (set! input-program (lib:body (car input-program)))
; Add any renamed exports to the begin section
;(let ((renames (lib:rename-exports (car input-program))))
; (set! input-program
; (append
; (map
; (lambda (r)
; `(define ,(caddr r) ,(cadr r)))
; renames)
; input-program)))
;; Prepend any included files into the begin section ;; Prepend any included files into the begin section
(if (not (null? includes)) (if (not (null? includes))
(for-each (for-each