(Arne Babenhauserheide)
2014-11-01: I can now quote lists by prefixing them with ' I can now quote lists by prefixing them with '
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -500,6 +500,18 @@ define : wisp-scheme-strip-indentation-m
append processed : cdr : car unprocessed
cdr unprocessed
+define : wisp-replace-paren-quotation-repr code
+ . "Replace lists starting with a quotation symbol by
+ quoted lists."
+ match code
+ : 'REPR-QUOTE-e749c73d-c826-47e2-a798-c16c13cb89dd a ...
+ list 'quote : map wisp-replace-paren-quotation-repr a
+ ; TODO: Add all other repr’s
+ : a ...
+ map wisp-replace-paren-quotation-repr a
+ a
+ . a
+
define : wisp-make-improper code
. "Turn (a #{.}# b) into the correct (a . b).
@@ -562,7 +574,8 @@ define : wisp-scheme-read-chunk port
. "Read and parse one chunk of wisp-code"
let : : lines : wisp-scheme-read-chunk-lines port
wisp-make-improper
- wisp-scheme-indentation-to-parens lines
+ wisp-replace-paren-quotation-repr
+ wisp-scheme-indentation-to-parens lines
define : wisp-scheme-read-all port
. "Read all chunks from the given port"