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

Added comment

Browse source
This commit is contained in:
Justin Ethier 2016-04-01 02:37:47 -04:00
parent 9b465308c0
commit a5a2683f19
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/cgen.sld
View file

@ -1356,6 +1356,8 @@
(define cgen:mangle-global #f) (define cgen:mangle-global #f)
;; Convert a library name to string, so it can be
;; appended to the identifiers it exports.
(define (import->string import) (define (import->string import)
(foldr (lambda (id s) (foldr (lambda (id s)
(string-append "_" (mangle id) s)) (string-append "_" (mangle id) s))