diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-19 06:58:19 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-19 06:58:19 -0700 |
| commit | f79d41823aa5c266e356fa0b792ad5cc58162d7d (patch) | |
| tree | efd35883c93c960fd29a1fcb8a53be687011584d | |
| parent | 85489502f64def96741c1fa43e92b7695c27ba92 (diff) | |
| download | txr-f79d41823aa5c266e356fa0b792ad5cc58162d7d.tar.gz txr-f79d41823aa5c266e356fa0b792ad5cc58162d7d.tar.bz2 txr-f79d41823aa5c266e356fa0b792ad5cc58162d7d.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |