From 167d26adbb2a24df38230acc3b1eebdee28ea31a Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 26 Dec 2015 23:48:45 -0500 Subject: [PATCH] Handle lib names with numbers in them --- scheme/cyclone/libraries.sld | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld index 5992af23..047b98a6 100644 --- a/scheme/cyclone/libraries.sld +++ b/scheme/cyclone/libraries.sld @@ -43,7 +43,14 @@ (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 (define (lib:name->string name)