[honu] replace $ with honu-$ just to be safe

collects/honu/core/main.rkt

@@ -77,7 +77,7 @@
                                    [literal:honu-in in]
                                    [literal:semicolon %semicolon]
                                    [literal:honu-comma honu-comma]
-                                   [literal:honu-$ $]
+                                   [literal:honu-$ honu-$]
                                    [literal:honu-<- <-]
                                    [literal:honu-in-lines inLines]
                                    [literal:#%brackets #%brackets]

collects/honu/core/private/compile.rkt

@@ -123,15 +123,19 @@
     (define-literal-set local-literals (honu-$ repeat$))
     (define-splicing-syntax-class not-dollar
                                   #:literal-sets (local-literals)
-      [pattern x #:when (and (identifier? #'x)
-                             (not (free-identifier=? #'honu-$ #'x)))
+      [pattern x #:when (or (not (identifier? #'x))
+                            (not (free-identifier=? #'honu-$ #'x)))
                  #:with out #'x])
+    (debug 2 "Compress dollars ~a\n" stx)
     (syntax-parse stx #:literal-sets (local-literals)
       [(honu-$ x:not-dollar ... honu-$ rest ...)
+       (debug 2 "Compressing ~a\n" #'(x.out ...))
        (with-syntax ([(rest* ...) (compress-dollars #'(rest ...))])
          (datum->syntax stx (syntax->list #'((repeat$ x.out ...) rest* ...))
                         stx stx))]
-      [(x:not-dollar rest ...)
+      [(honu-$ rest ...)
+       (error 'compress-dollars "unmatched $ ~a" (syntax->datum stx))]
+      [(x rest ...)
        (with-syntax ([x* (compress-dollars #'x)]
                      [(rest* ...) (compress-dollars #'(rest ...))])
          (datum->syntax stx

collects/honu/core/read.rkt

@@ -38,7 +38,7 @@
 (define-lex-abbrev string (:: #\" (:* string-character) #\"))
 (define-lex-abbrev operator (:or "+=" "-=" "*=" "/="
                                  "+" "!=" "=>" "=" "==" "*" "/" "-" "^" "||" "|" "&&" "<="
-                                 ">=" "<-" "<" ">" "!" "::" ":=" "%" "$"))
+                                 ">=" "<-" "<" ">" "!" "::" ":=" "%"))
 (define-lex-abbrev block-comment (:: "/*"
                                      (complement (:: any-string "*/" any-string))
                                      "*/"))
@@ -71,6 +71,7 @@
     ["/*" (token-block-comment)]
     ["..." (token-identifier '...)]
     ["." (token-identifier '%dot)]
+    ["$" (token-identifier 'honu-$)]
     ["," (token-identifier 'honu-comma)]
     [":" (token-identifier '%colon)]
     ["'" (token-identifier 'quote)]