diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-11-06 00:17:21 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-11-06 00:17:21 -0800 |
| commit | 182e6a1b3bee42f203aa70ffe1675c3be7ef59fa (patch) | |
| tree | 59aaf0b1a8b95650d4feccd1c95a4363554303bd | |
| parent | d3ec853013356d9c8267980a5146728c16e002ba (diff) | |
| download | txr-182e6a1b3bee42f203aa70ffe1675c3be7ef59fa.tar.gz txr-182e6a1b3bee42f203aa70ffe1675c3be7ef59fa.tar.bz2 txr-182e6a1b3bee42f203aa70ffe1675c3be7ef59fa.zip | |
compiler: first use of .? notation.
* share/txr/stdlib/compiler.tl (sys:env postinit): The
the initialization of me.lev becomes more succinct.
| -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 ca5254d5..82fe9638 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -61,7 +61,7 @@ (:postinit (me) (unless me.lev - (set me.lev (if me.up (succ me.up.lev) 1))) + (set me.lev (succ (or me.up.?lev 0)))) (unless (or me.co (null me.up)) (set me.co me.up.co)) me.co.(new-env me)) |