don't generate importable variable name

This commit is contained in:
Yuichi Nishiwaki 2014-05-21 00:29:13 +09:00
parent dfc33c4f11
commit 11827bebd9
1 changed files with 1 additions and 1 deletions

View File

@ -54,5 +54,5 @@ sub escape_v {
($_) = @_;
s/\.scm$//g;
s/[^[A-Za-z0-9_]/_/g;
$_;
"piclib_src_" . $_;
}