(Arne Babenhauserheide)
2017-10-04: Add a warning with undefined indentation levels Add a warning with undefined indentation levels
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -530,12 +530,15 @@ define : wisp-scheme-indentation-to-pare
let : : previous-indentation : car : cdr indentation-levels
if : <= current-line-indentation previous-indentation
values processed unprocessed
- loop ;; not yet used level! TODO: maybe throw an error here.
- . processed
- . unprocessed
- cons ; recursion via the indentation-levels
- . current-line-indentation
- cdr indentation-levels
+ begin ;; not yet used level! TODO: maybe throw an error here instead of a warning.
+ let : : linenumber : - (length lines) (length unprocessed)
+ format (current-error-port) ";;; WARNING:~A: used lower but undefined indentation level (line ~A of the current chunk: ~S). This makes refactoring much more error-prone, therefore it might become an error in a later version of Wisp.\n" linenumber linenumber (cdr current-line)
+ loop
+ . 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