Prevent a compiler error when there is only one argument to + or *.

CHANGELOG.md

@@ -11,6 +11,7 @@ Bug Fixes
 
 - Made several improvements to macro hygiene by renaming local variable bindings during expansion. Added a unit test module covering many test cases.
 - Fixed many functions including `utf8->string`, `string->utf8`, `bytevector-copy`, `list->vector`, and `list->string` to heap allocate objects that exceed the maximum size for objects on the stack.
+- Prevent a compiler error when there is only one argument to `+` or `*`.
 
 ## 0.7.1 - December 21, 2017
 

scheme/cyclone/primitives.sld

@@ -910,6 +910,8 @@
 
     (define (prim:inline-convert-prim-call prim-call)
       (cond
+        ((and (equal? (car prim-call) '+) (= (length prim-call) 2)) `(Cyc-fast-plus 0 ,@(cdr prim-call)))
+        ((and (equal? (car prim-call) '*) (= (length prim-call) 2)) `(Cyc-fast-mul 1 ,@(cdr prim-call)))
         ((equal? (car prim-call) '+) (->dyadic (cons 'Cyc-fast-plus (cdr prim-call))))
         ((equal? (car prim-call) '*) (->dyadic (cons 'Cyc-fast-mul (cdr prim-call))))
         ((and (equal? (car prim-call) '-) (= (length prim-call) 2)) `(Cyc-fast-sub 0 ,@(cdr prim-call))) ;; Special case, fast negation

tests/match-tests.scm

@@ -95,13 +95,8 @@
   (match
    lst
    ;(() 0)
-;; Temporarily commenting these 2 lines out to track down compiler error with the next:
-;   (((? number? n) (or 's 'seconds 'sec) . rest)
-;    (+ 0 (* #e1 n) (calc-time rest)))
-   ;; TODO: interesting compiler error with these lines:
-   (((? number? n) (or 's 'seconds 'sec) ) ;. rest)
-    (+ (* #e1 n) )) ;(calc-time rest)))
-;;
+   (((? number? n) (or 's 'seconds 'sec) . rest)
+    (+ 0 (* #e1 n) (calc-time rest)))
    (((? number? n) (or 'm 'min 'minutes) . rest)
     (+ (* #e60 n) (calc-time rest)))
    (((? number? n) (or 'hours 'h) . rest)