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