]> git.jsancho.org Git - gacela.git/commitdiff
A new way of instantiating mobs.
authorJavier Sancho <jsf@jsancho.org>
Sat, 21 Apr 2012 06:15:25 +0000 (08:15 +0200)
committerJavier Sancho <jsf@jsancho.org>
Sat, 21 Apr 2012 06:15:25 +0000 (08:15 +0200)
src/gacela.scm

index 1c3855bfbb49518fb04fe7a0f91f657d4b05262b..2a440b2abd10f09a9c0214a06837fdf5da8e3930 100644 (file)
         (fun-name (get-mob-function-name name)))
     `(begin
        (define-mob-function ,(cons fun-name attr) ,@body)
         (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))))))
 
         (lambda* ,(if (null? attr) '() `(#:key ,@attr))
           (the-mob ',name (list ,@(map (lambda (a) `(cons ',(car a) ,(car a))) attr)) ,fun-name))))))