]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Tue, 20 Sep 2011 20:37:38 +0000 (20:37 +0000)
committerjsancho <devnull@localhost>
Tue, 20 Sep 2011 20:37:38 +0000 (20:37 +0000)
src/gacela_mobs.scm

index 313848c6cc7801c7ae2bbeeffc9929ea876b7895..f9594cfd58fa983d4189f261dbc93bb2e3fe9bd0 100755 (executable)
@@ -94,7 +94,7 @@
           ((get-type)
            ,type-symbol)
           (else
           ((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)
            (newline)
            (catch #t
                   (lambda () ,@body)