From f79d41823aa5c266e356fa0b792ad5cc58162d7d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 19 Mar 2018 06:58:19 -0700 Subject: compiler: bug: nil entered into data tab by block. * share/txr/stdlib/compiler.tl (compiler comp-block): If the block is anonymous, just refer to (t 0) as the name; don't intern nil via get-dreg. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 7f49e56c..4c5eb7e5 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -199,7 +199,7 @@ (defmeth compiler comp-block (me oreg env form) (mac-param-bind form (op name . body) form - (let* ((dreg me.(get-dreg name)) + (let* ((nreg (if name me.(get-dreg name) '(t 0))) (bfrag me.(comp-progn oreg env body)) (lskip (gensym "l"))) (new (frag bfrag.oreg -- cgit v1.2.3