Re: [Chicken-users] dangerous code when running finalizers

2009-02-18 Thread felix winkelmann
On Mon, Sep 8, 2008 at 4:33 PM, Jörg F. Wittenberger
 wrote:
> Hi,
>
> I managed to have a finalizer raise an exception. This ran into a tight
> loop in ##sys#force-finalizers.  This patch will ignore them.
>

Gee, this got completely lost. Sorry, Joerg.


cheers,
felix


___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] newbie: questions about set-finalizer!

2009-02-18 Thread felix winkelmann
On Fri, Feb 13, 2009 at 2:31 PM, felix winkelmann  wrote:
>>
>> In interpreted code, the finalizers do not trigger at all, even when
>> you exit csi via (exit).
>>
>

Hi!

I have reverted the original change that caused this for the time being.


cheers,
felix


___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] extreme kludge: load that compiles

2009-02-18 Thread Eduardo Cavazos

Hello,

Even after R6RS, 'load' is all one can really count on. :-)

Below is a "hacked" version of load that I'm using for Chicken. If an 
'.so' file doesn't exist for the file your loading, the file is compiled 
and one is generated. If it does exist but it's out of date, your file 
is recompiled, then the '.so' file is loaded. Otherwise, the '.so' is 
loaded straight away.


Ed

(use files)
(use posix)

(define chicken-scheme-load load)

(define (file-newer? a b)
  (> (file-change-time a)
 (file-change-time b)))

(define (load scheme-file)

  (let ((so-file (pathname-replace-extension scheme-file "so")))

(cond

 ((and (file-exists? so-file)
   (file-newer? so-file scheme-file))
  (chicken-scheme-load so-file))

 (else
  (display "Compiling file: ") (display scheme-file) (newline)

  (system (string-append "csc -dynamic -run-time-macros " scheme-file))

(load scheme-file)


___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users