From dbb4ab83a4a3178e9e9ce0b5e3679eb38d3e7854 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 15 Apr 2016 00:00:49 -0400 Subject: [PATCH] WIP - renaming of library exports --- cyclone.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/cyclone.scm b/cyclone.scm index 93db7793..a75fb757 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -68,6 +68,15 @@ (lib:exports (car input-program)))) (set! imports (lib:imports (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 (if (not (null? includes)) (for-each