From 35174d33b2c89c7005305f6a50684658203d3bad Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sat, 21 Apr 2012 08:15:25 +0200 Subject: [PATCH 1/1] A new way of instantiating mobs. --- src/gacela.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gacela.scm b/src/gacela.scm index 1c3855b..2a440b2 100644 --- a/src/gacela.scm +++ b/src/gacela.scm @@ -357,7 +357,7 @@ (fun-name (get-mob-function-name name))) `(begin (define-mob-function ,(cons fun-name attr) ,@body) - (define ,(string->symbol (string-concatenate (list "make-" (symbol->string name)))) + (define ,name (lambda* ,(if (null? attr) '() `(#:key ,@attr)) (the-mob ',name (list ,@(map (lambda (a) `(cons ',(car a) ,(car a))) attr)) ,fun-name)))))) -- 2.39.5