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

Temporary workaround for name conflict

Browse source 
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
This commit is contained in:
Justin Ethier 2017-04-27 18:11:57 -04:00
parent c2929af714
commit 19e0346968
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/base.sld
View file

@ -1261,7 +1261,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; syntax-rules ;; syntax-rules
(define identifier? symbol?) (define identifier? symbol?)
(define (identifier->symbol obj) obj) ;(define (identifier->symbol obj) obj)
(define (find-tail pred ls) (define (find-tail pred ls)
(and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls))))) (and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls)))))
@ -1363,7 +1363,8 @@
(next-symbol (next-symbol
(string-append (string-append
(symbol->string (symbol->string
(identifier->symbol (car x))) (car x))
;(identifier->symbol (car x)))
"-ls"))) "-ls")))
new-vars)) new-vars))
(once (once