copy and deep copy support

parent e7111e6e
......@@ -712,9 +712,7 @@ For tabling, negations are tricky. the reason is that when a recursive applicati
(syntax-case x ()
((_ w (n . l))
;(pk (syntax->datum (syntax (n w . l))))
(if
(guile-log-macro? (syntax n))
(if (guile-log-macro? (syntax n))
(syntax (n w . l))
(syntax (<%fkn%> w n . l)))))))
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment