fix quasiquotation of dotted lists

nathansgreen · May 18, 2011 · a14a9bf · a14a9bf
1 parent 2f9e4f6
commit a14a9bf
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/boot.l b/boot.l
@@ -73,8 +73,10 @@
 		     (if (pair? l)
 			 (let ((obj (car l)))
 			   (if (and (pair? obj) (= (car obj) 'unquote-splicing))
-			       (list 'concat-list (cadr obj)      (qq-list (cdr l)))
-			     (list   'cons        (qq-object obj) (qq-list (cdr l)))))
+			       (if (cdr l)
+				   (list 'concat-list (cadr obj) (qq-list (cdr l)))
+				 (cadr obj))
+			     (list 'cons (qq-object obj) (qq-list (cdr l)))))
 		       (list 'quote l))))
       (set qq-element (lambda (l)
 			(let ((head (car l)))