diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 10c9411e..3ed0777f 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -1356,6 +1356,8 @@ (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) (foldr (lambda (id s) (string-append "_" (mangle id) s))