fix hollywooMethod for methods that only take cc
This commit is contained in:
@@ -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" [
|
||||||
|
Reference in New Issue
Block a user