Add a type check

scheme/cyclone/cgen.sld

@@ -1623,6 +1623,7 @@
     (for-each
      (lambda (l)
       (let ((ast (caddr l)))
+        (when (ast:lambda? ast)
           (with-fnc (ast:lambda-id ast) (lambda (fnc)
             (when (and (adbf:well-known fnc)
                        (equal? (adbf:closure-size fnc) 1))
@@ -1652,7 +1653,7 @@
                   (if (> (string-length args-str) 0)
                       (string-append "," args-str))
                   ");"
-             "}")))))))
+               "}"))))))))
      lambdas)
 
     ; Print the definitions: