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

Handle lib names with numbers in them

Browse source
This commit is contained in:
Justin Ethier 2015-12-26 23:48:45 -05:00
parent 40ba493ac3
commit 167d26adbb
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/libraries.sld
View file

@ -43,7 +43,14 @@
(define (library? ast) (define (library? ast)
(tagged-list? 'define-library ast)) (tagged-list? 'define-library ast))
(define (lib:name ast) (cadr ast)) (define (lib:name ast)
(map
(lambda (atom)
(cond
((number? atom)
(string->symbol (number->string atom)))
(else atom)))
(cadr ast)))
;; Convert name (as list of symbols) to a mangled string ;; Convert name (as list of symbols) to a mangled string
(define (lib:name->string name) (define (lib:name->string name)