Why does this code fails to load?

[Boring Coder]

(define stringify

    []      -> "()"

    [skip]  -> ")"

    X       -> (str X) where (not (cons? X))

    [skip X | Y] -> (@s  (stringify X) " " (stringify [skip | Y]) )

    [X | Y] -> (@s "("  (stringify  X) " " (stringify [skip | Y]) ))

(defmacro quote

    [test X Y Z] -> [test X Y (stringify Z)])

(define test

    X Y Z -> [X Y Z])

This code fails to load

(0-) (load "simulator.shen")
fn: stringify is undefined

when I define stringify in the repl and then load

Heap exhausted during allocation: 119865344 bytes available, 260046856 requested.
        Immobile Object Counts
 Gen layout fdefn symbol   code  Boxed   Cons    Raw   Code  SmMix  Mixed  LgRaw LgCode  LgMix Waste%       Alloc        Trig   Dirty GCs Mem-age

[dr.mt...@gmail.com]

(defmacro quote

    [test X Y Z] -> [test X Y (stringify Z)])

goes into an infinite loop?

M.

[Boring Coder]

In my head it is  supposed to turn the third argument into a string before evaluating it. so    that :

(test (+2 2) (+3 3) (+ 5 5)) will give [4 6 "(+ 5 5)"]

but I think I didn't understand the order of macro-expansion and evaluation  correctly.

I will work on that.

[Bruno Deferrari]

It gives you [test 4 6 "(+ 5 5)"], which again matches the pattern [test X Y Z], which will be macro-expanded again, and again, and again.

--
You received this message because you are subscribed to the Google Groups "Shen" group.
To unsubscribe from this group and stop receiving emails from it, send an email to qilang+un...@googlegroups.com.
To view this discussion, visit https://groups.google.com/d/msgid/qilang/c4c57551-a7c8-4a51-a79d-aa0e600faca9n%40googlegroups.com.

--

BD

[Bruno Deferrari]

My guess is that you wanted this instead?

(defmacro quote

    [test X Y Z] -> (test X Y (stringify Z)))

--

BD