fix hollywooMethod for methods that only take cc

2021-12-30 12:15:25 -07:00
parent c9f99e78ce
commit b1eedbbc28
1 changed files with 3 additions and 2 deletions
--- a/projects/hollywoo/src/hollywoo/Movie.kiss
+++ b/projects/hollywoo/src/hollywoo/Movie.kiss
@@ -83,7 +83,8 @@
    (let [args (expList argList)
            numArgs args.length
            methodName (symbolNameValue nameAndType true)
-            readerMacroStart "$(.toUpperCase methodName) "]
+            &mut readerMacroStart "$(.toUpperCase methodName) "]
+        (when (= 1 numArgs) (set readerMacroStart (StringTools.trim readerMacroStart)))
        `{
            (defReaderMacro ,readerMacroStart [stream &builder b]
                (let [nextLineStream
@@ -93,7 +94,7 @@
                                ,methodName
                                ,(for arg args
                                    (exprCase arg
-                                        ((exprTyped Continuation cc)
+                                        ((exprOr cc (exprTyped Continuation cc))
                                            (b.callSymbol "b.symbol" [(b.str "cc")]))
                                        (_
                                            (b.callSymbol "try" [