syntax error around comma

2014-06-27 08:55:01 +09:00
parent 556a460663
commit a98411cd0b
1 changed files with 1 additions and 1 deletions
@@ -1063,7 +1063,7 @@
 			 (let-values (((match1 vars1) (compile-match-base (car pattern))))
 			   (loop (cdr pattern)
 				 (cons `(,_if (,_pair? ,accessor)
-					      (,_let ((expr (,_car,accessor)))
+					      (,_let ((expr (,_car ,accessor)))
 						     ,match1)
 					      (exit #f))
 				       matches)