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 | 1a1c800a8ab6e0168f10f8cc68dffdd670ae64b3 (patch) | |
| tree | efd35883c93c960fd29a1fcb8a53be687011584d | |
| parent | 2a74065496eb787cb763b8f9b6b1bd63b649bc21 (diff) | |
| download | txr-1a1c800a8ab6e0168f10f8cc68dffdd670ae64b3.tar.gz txr-1a1c800a8ab6e0168f10f8cc68dffdd670ae64b3.tar.bz2 txr-1a1c800a8ab6e0168f10f8cc68dffdd670ae64b3.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 |