stdlib: fix incorrect uses of compile-error.

Oops! We have many instances of compile-error being called
in the old way with a format string as its first agument,
instead of a context argument.

* share/txr/stdlib/ifa.tl (ifa): Take :form argument, pass to
compile-error. Let's call this "fix M".
(sys:if-to-cond): Add form parameter, pass to compile-error.
Let's call this let's call this "fix F".
(conda, condlet): Fix M.

* share/txr/stdlib/place.tl (sys:*pl-form*): New special
variable. We need this in order to communicate the real place
form to the place expander, similarly to how we communicate
the original environment using sys:*pl-env*.
(call-update-expander, call-clobber-expander,
call-delete-expander): Bind sys:*pl-form* to the unexpanded
place.
(shift, lset): Fix M.
(defplace fun): Arrange for value of sys:*pl-form* to be
passed to compile-error. Let's call this "Fix P".
(sys:get-mb): Fix F.
(defplace symbol-macro): Fix P.
(placelet*, placelet): Fix M.

* share/txr/stdlib/txr-case.tl (txr-case-impl): Fix M.

* share/txr/stdlib/with-resources.tl (with-resources): Fix M.

0 files changed, 0 insertions, 0 deletions