Building guile 1.8.6 on Tru64 5.1b

2009-04-18 Thread Didier Godefroy
Hello all, I saw in the last update that building issues on tru64 were being fixed, but I still have some myself. I'm building now 1.8.6 and I tried using gcc and tru64 cc without success: libtool: compile: gcc -pthread -DHAVE_CONFIG_H -I.. -I.. -I.. -I/opt/TWWfsw/libgmp41/include -I/usr/local/r

Re: wrapping `define-syntax'

2009-04-18 Thread Julian Graham
Hi Andy, > The final paragraph of 7.2 seems to imply that these additional bindings > may also be present for the runtime phase, which would obviate the need > for the temporary modules. I take it you're referring to this sentence? "When an identifier appears as an expression in a phase that is

Re: Building guile 1.8.6 on Tru64 5.1b

2009-04-18 Thread Ludovic Courtès
Hi, Didier Godefroy writes: > gc_os_dep.c:1130: warning: type defaults to 'int' in declaration of '_end' > gc_os_dep.c: In function 'scm_get_stack_base': > gc_os_dep.c:1916: warning: comparison of distinct pointer types lacks a cast The attached patch should fix it. Can you try it and report b

passing an alist to a procedure without making a copy?

2009-04-18 Thread Mark Polesky
(define my-alist '((a . 1) )) (set! my-alist (acons 'b 2 my-alist)) my-alist ==> ((b . 2) (a . 1)) (define (alist-prepend alist key value) (set! alist (acons key value alist))) (alist-prepend my-alist 'c 3) my-alist ==> ((b . 2) (a . 1)) How can

Re: passing an alist to a procedure without making a copy?

2009-04-18 Thread Linas Vepstas
2009/4/18 Mark Polesky : > > (define my-alist >  '((a . 1) >    )) > > (set! my-alist (acons 'b 2 my-alist)) > > my-alist ==> ((b . 2) (a . 1)) > > (define (alist-prepend alist key value) >  (set! alist (acons key value alist))) > > (alist-prepend my-alist 'c 3) > > my-alist ==> ((b . 2) (a . 1)) >

Re: passing an alist to a procedure without making a copy?

2009-04-18 Thread r6rsguy
> From: Linas Vepstas > > 2009/4/18 Mark Polesky : > > Subject: passing an alist to a procedure without making a copy? > > > > (define my-alist '((a . 1)) ) > > > > (set! my-alist (acons 'b 2 my-alist)) > > > > (define (alist-prepend alist key value) > >  (set! alist (acons key value alist))) > >