diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-28 22:34:39 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-28 22:34:39 -0800 |
| commit | 8417226897c20af924807ae2804d6d0749941d6f (patch) | |
| tree | 407cdad7dd8778ceb75bc57202e297ad5aaf3332 /share | |
| parent | c5a734db255b4e7102a7e321720c54762c060f3e (diff) | |
| download | txr-8417226897c20af924807ae2804d6d0749941d6f.tar.gz txr-8417226897c20af924807ae2804d6d0749941d6f.tar.bz2 txr-8417226897c20af924807ae2804d6d0749941d6f.zip | |
bugfix: awk macro spews warnings.
Rather than fix this in the awk macro, let's
just have sys:expand block warnings.
* eval.c (warning_continue, no_warn_expand): New static
function.
(eval_init): Change registration of sys:expand to point
to no_warn_expand.
* share/txr/stdlib/place.tl (call-update-expander,
call-clobber-expander, call-delete-expander, sys:placelet-1):
Remove ignwarn wrapping from sys:expand calls.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/place.tl | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 76ca95e2..7bd9acf5 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -183,7 +183,7 @@ (expander (get-update-expander place)) (sys:*pl-env* env) (expansion [expander getter setter place body]) - (expansion-ex (ignwarn (sys:expand expansion env)))) + (expansion-ex (sys:expand expansion env))) (sys:cp-origin expansion-ex place))) (defun call-clobber-expander (ssetter unex-place env body) @@ -191,7 +191,7 @@ (expander (get-clobber-expander place)) (sys:*pl-env* env) (expansion [expander ssetter place body]) - (expansion-ex (ignwarn (sys:expand expansion env)))) + (expansion-ex (sys:expand expansion env))) (sys:cp-origin expansion-ex place))) (defun call-delete-expander (deleter unex-place env body) @@ -199,7 +199,7 @@ (expander (get-delete-expander place)) (sys:*pl-env* env) (expansion [expander deleter place body]) - (expansion-ex (ignwarn (sys:expand expansion env)))) + (expansion-ex (sys:expand expansion env))) (sys:cp-origin expansion-ex place)))) (defmacro with-update-expander ((getter setter) unex-place env body) @@ -885,11 +885,8 @@ ,tmp-body))) (call-update-expander pl-getter pl-setter place env ^(macrolet ((,tmp-place () ^(,',pl-getter))) - ,(ignwarn - (sys:expand - ^(symacrolet ((,sym (,tmp-place))) - ,*body) - env))))) + ,(sys:expand ^(symacrolet ((,sym (,tmp-place))) + ,*body) env)))) (remhash *place-update-expander* tmp-place)))) (defmacro placelet* (sym-place-pairs . body) |