syntax error around comma

2014-06-27 07:28:56 +09:00 · 2014-06-27 07:28:56 +09:00 · a98411cd0b
parent 556a460663
commit a98411cd0b
1 changed files with 1 additions and 1 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -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)