diff options
| -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)) |