wisp
 
(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