]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Sun, 29 May 2011 07:57:25 +0000 (07:57 +0000)
committerjsancho <devnull@localhost>
Sun, 29 May 2011 07:57:25 +0000 (07:57 +0000)
src/gacela_mobs.scm

index 6081cb4af4cbd6ca683693bcaa8205dd11683696..09e296a4ccbecb9f2f5aedf45e5cc9a57578a836 100755 (executable)
@@ -50,7 +50,7 @@
            (cond ((null? mobs) #f)
                  (else
                   (cond (function (function)))
-                  (secure-block #f (apply (car mobs) (cons option args)))
+                  (catch #t (lambda () (apply (car mobs) (cons option args))) (lambda (key . args) #f))
                   (or #t (run-mobs-rec (cdr mobs))))))))
 
   (set! mob-off