(Arne Babenhauserheide)
2017-09-25: fix bug when going down and straight up to a not yet defined level fix bug when going down and straight up to a not yet defined level
diff --git a/wisp-scheme.w b/wisp-scheme.w --- a/wisp-scheme.w +++ b/wisp-scheme.w @@ -531,7 +531,15 @@ define : wisp-scheme-indentation-to-pare : > current-indentation current-line-indentation ; display "current-indent > next-line\n" ; this just steps back one level via the side-recursion. - values processed unprocessed + let : : previous-indentation : car : cdr indentation-levels + if : <= current-line-indentation previous-indentation + values processed unprocessed + loop ;; not yet used level! + . processed + . unprocessed + cons ; recursion via the indentation-levels + . current-line-indentation + cdr indentation-levels : = current-indentation current-line-indentation ; display "current-indent = next-line\n" let