Commit 314717f036bab4ad7bb32ecbd5fe5050fa99c996

Authored by Göran Krampe
1 parent bde894cf

Fixed proper capitalizations of category/class names

Showing 1 changed file with 3 additions and 3 deletions
src/squeaknim.nim
@@ -84,9 +84,9 @@ template writeExternalLibrary*() = @@ -84,9 +84,9 @@ template writeExternalLibrary*() =
84 "\tinstanceVariableNames: ''\C" & 84 "\tinstanceVariableNames: ''\C" &
85 "\tclassVariableNames: ''\C" & 85 "\tclassVariableNames: ''\C" &
86 "\tpoolDictionaries: ''\C" & 86 "\tpoolDictionaries: ''\C" &
87 - "\tcategory: '$1'!\C" & 87 + "\tcategory: '$2'!\C" &
88 "!$1 class methodsFor: 'primitives' stamp: 'SqueakNim'!\C", 88 "!$1 class methodsFor: 'primitives' stamp: 'SqueakNim'!\C",
89 - gPrefix & capitalize(dllName)) 89 + gPrefix & capitalize(dllName), capitalize(dllName))
90 90
91 template writeSmallTalkCode*(filename: string) = 91 template writeSmallTalkCode*(filename: string) =
92 ## You need to invoke this template to write the produced SmallTalk code to 92 ## You need to invoke this template to write the produced SmallTalk code to
@@ -190,6 +190,6 @@ macro wrapObject*(typ: stmt): stmt = @@ -190,6 +190,6 @@ macro wrapObject*(typ: stmt): stmt =
190 "\t^#(\C" & 190 "\t^#(\C" &
191 "$3\C" & 191 "$3\C" &
192 "\t)! !\C" & 192 "\t)! !\C" &
193 - "$1 defineFields.\C!\C\C") % [name, dllName, fields] 193 + "$1 defineFields.\C!\C\C") % [name, capitalize(dllName), fields]
194 stCode.add(st) 194 stCode.add(st)
195 result = newStmtList() 195 result = newStmtList()