From 182e6a1b3bee42f203aa70ffe1675c3be7ef59fa Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 6 Nov 2019 00:17:21 -0800 Subject: compiler: first use of .? notation. * share/txr/stdlib/compiler.tl (sys:env postinit): The the initialization of me.lev becomes more succinct. --- 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 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)) -- cgit v1.2.3