X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_mobs.scm;fp=src%2Fgacela_mobs.scm;h=f9594cfd58fa983d4189f261dbc93bb2e3fe9bd0;hb=1f09eadc325f54c80278ea6beb625566954ab9b8;hp=313848c6cc7801c7ae2bbeeffc9929ea876b7895;hpb=4e51826b44a80a645349e77f1c48276068279d84;p=gacela.git

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 313848c..f9594cf 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -94,7 +94,7 @@
 	   ((get-type)
 	    ,type-symbol)
 	   (else
-	    (display ,(cons 'list (map (lambda (x) `(acons ',(car x) ,(car x) '())) publish)))
+	    (display ,(cons 'list (map (lambda (x) `(cons ',(car x) ,(car x))) publish)))
 	    (newline)
 	    (catch #t
 		   (lambda () ,@body)