fix hollywooMethod for methods that only take cc

This commit is contained in:
2021-12-30 12:15:25 -07:00
parent c9f99e78ce
commit b1eedbbc28

View File

@@ -83,7 +83,8 @@
(let [args (expList argList) (let [args (expList argList)
numArgs args.length numArgs args.length
methodName (symbolNameValue nameAndType true) methodName (symbolNameValue nameAndType true)
readerMacroStart "$(.toUpperCase methodName) "] &mut readerMacroStart "$(.toUpperCase methodName) "]
(when (= 1 numArgs) (set readerMacroStart (StringTools.trim readerMacroStart)))
`{ `{
(defReaderMacro ,readerMacroStart [stream &builder b] (defReaderMacro ,readerMacroStart [stream &builder b]
(let [nextLineStream (let [nextLineStream
@@ -93,7 +94,7 @@
,methodName ,methodName
,(for arg args ,(for arg args
(exprCase arg (exprCase arg
((exprTyped Continuation cc) ((exprOr cc (exprTyped Continuation cc))
(b.callSymbol "b.symbol" [(b.str "cc")])) (b.callSymbol "b.symbol" [(b.str "cc")]))
(_ (_
(b.callSymbol "try" [ (b.callSymbol "try" [