(Arne Babenhauserheide)
2014-11-01: repr: separate splicing with a - → same names as real functions. repr: separate splicing with a - → same names as real functions.
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -61,7 +61,7 @@ define repr-unquote ; ,
string->symbol : string-append "REPR-UNQUOTE-" wisp-uuid
define repr-quasiquote ; `
string->symbol : string-append "REPR-QUASIQUOTE-" wisp-uuid
-define repr-unquotesplicing ; ,@
+define repr-unquote-splicing ; ,@
string->symbol : string-append "REPR-UNQUOTESPLICING-" wisp-uuid
define repr-syntax ; #'
@@ -70,7 +70,7 @@ define repr-unsyntax ; #,
string->symbol : string-append "REPR-UNSYNTAX-" wisp-uuid
define repr-quasisyntax ; #`
string->symbol : string-append "REPR-QUASISYNTAX-" wisp-uuid
-define repr-unsyntaxsplicing ; #,@
+define repr-unsyntax-splicing ; #,@
string->symbol : string-append "REPR-UNSYNTAXSPLICING-" wisp-uuid
; TODO: wrap the reader to return the repr of the syntax reader
@@ -89,7 +89,7 @@ define : match-charlist-to-repr charlist
: equal? chlist : list #\`
. repr-quasiquote
: equal? chlist : list #\, #\@
- . repr-unquotesplicing
+ . repr-unquote-splicing
: equal? chlist : list #\# #\'
. repr-syntax
: equal? chlist : list #\# #\,
@@ -97,7 +97,7 @@ define : match-charlist-to-repr charlist
: equal? chlist : list #\# #\`
. repr-quasisyntax
: equal? chlist : list #\# #\, #\@
- . repr-unsyntaxsplicing
+ . repr-unsyntax-splicing
else
. #f