Fix macro compilation in 'compile'

Affonso-Gui · Mar 27, 2023 · aa04195 · aa04195
1 parent bed4d4b
commit aa04195
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lisp/comp/comp.l b/lisp/comp/comp.l
@@ -2050,7 +2050,7 @@
 	   (setq dump
 	    (case (car def)
 		(lambda `(defun ,funmac . ,(cdr def)))
-		(macro  `(defun ,funmac . ,(cdr def)))))
+		(macro  `(defmacro ,funmac . ,(cdr def)))))
 	  (pprint dump f) ))) )
 
 (defun comfile (&rest files) (dolist (f files) (send comp :compile-file f)))