Re: Extending apply

[Daniel Gildea]

On Mon, January 22, 2007 at  5:07PM, Ian Grant wrote:
> I have tried starting a new (top-repl) after defining apply but that
> doesn't work. Any ideas anyone?

Hi,

The closest I've come is by setting primitive-eval:

% guile -l load.scm
guile> (define very-primitive-eval primitive-eval)
guile> (define (g:eval args)
  (g:apply 
   (very-primitive-eval (car args)) 
   (map very-primitive-eval (cdr args))))
guile> (set! primitive-eval g:eval)
guile> ( (up (literal-function 'x) (literal-function 'y) (literal-function 'z) 
) 't)
#((*number* (expression (x t)) (literal-function #<procedure aph args>) 
(type-expression Real)) (*number* (expression (y t)) (literal-function 
#<procedure aph args>) (type-expression Real)) (*number* (expression (z t)) 
(literal-function #<procedure aph args>) (type-expression Real)))



but that eval doesn't do everything an eval needs to - 
macros, etc, etc.

Dan