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