From 19e0346968dc30391a7499a8ff95cb104aa402ac Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 27 Apr 2017 18:11:57 -0400 Subject: [PATCH] Temporary workaround for name conflict A longer-term solution will need to address cases where a function is defined with the same name as an inlinable function from another library. These are effectively promoted to primitives, which are not renamed by alpha conversion. A possible workaround might be to allow a global in the module being compiled to "override" a primitive of the same name. TBD --- scheme/base.sld | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 10358a46..e1d57af2 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1261,7 +1261,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; syntax-rules (define identifier? symbol?) -(define (identifier->symbol obj) obj) +;(define (identifier->symbol obj) obj) (define (find-tail pred ls) (and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls))))) @@ -1363,7 +1363,8 @@ (next-symbol (string-append (symbol->string - (identifier->symbol (car x))) + (car x)) + ;(identifier->symbol (car x))) "-ls"))) new-vars)) (once