Sun May 3 10:00:59 CEST 2009

trouble with locals probably

Some matching error somewhere

This works:

(state-pop (make-state:stack `((,op/asm/qw 123))) 1 op/?/qw)

This too:

(macro-pop (make-state:stack `((,op/asm/qw 123) (,op/asm/qw 123))) 1)

Ah, no it returns the original stack:

  ((#(struct:asm #<procedure:qw> qw) 123)
   (#(struct:asm #<procedure:qw> qw) 123)))

looks like a prototype mismatch: stack is expected in first position
but given last.

ok fixed.