diff --git a/lisp/ob-asymptote.el b/lisp/ob-asymptote.el
index 2219e03e0..5bd33f508 100644
--- a/lisp/ob-asymptote.el
+++ b/lisp/ob-asymptote.el
@@ -131,14 +131,16 @@ The type is `string' if any element in DATA is
 a string. Otherwise, it is either `real', if some elements are
 floats, or `int'."
   (let* ((type 'int)
+	 find-type			; for byte-compiler
 	 (find-type
-	  (lambda (row)
-	    (catch 'exit
-	      (mapc (lambda (el)
-		      (cond ((listp el) (funcall find-type el))
-			    ((stringp el) (throw 'exit (setq type 'string)))
-			    ((floatp el) (setq type 'real))))
-		    row)))))
+	  (function
+	   (lambda (row)
+	     (catch 'exit
+	       (mapc (lambda (el)
+		       (cond ((listp el) (funcall find-type el))
+			     ((stringp el) (throw 'exit (setq type 'string)))
+			     ((floatp el) (setq type 'real))))
+		     row))))))
     (funcall find-type data) type))
 
 (provide 'ob-asymptote)