(Arne Babenhauserheide)
2015-04-11: FIX: no longer break pairs when adding source properties. FIX: no longer break pairs when adding source properties.
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -405,8 +405,9 @@ define : wisp-propagate-source-propertie
: and (null? processed) (not (pair? unprocessed)) (not (list? unprocessed))
. unprocessed
: and (pair? unprocessed) (not (list? unprocessed))
- . (wisp-propagate-source-properties (car unprocessed))
- . . (wisp-propagate-source-properties (cdr unprocessed))
+ cons
+ wisp-propagate-source-properties (car unprocessed)
+ wisp-propagate-source-properties (cdr unprocessed)
: null? unprocessed
. processed
else
@@ -414,7 +415,7 @@ define : wisp-propagate-source-propertie
if : null? : source-properties unprocessed
wisp-add-source-properties-from line unprocessed
wisp-add-source-properties-from unprocessed line
- loop ; FIXME: this breaks pairs.
+ loop
append processed : list : wisp-propagate-source-properties line
cdr unprocessed