[honu] add :: as the infix cons operator

collects/honu/core/main.rkt

@@ -17,6 +17,7 @@
                      [honu-+ +] [honu-- -]
                      [honu-* *] [honu-/ /]
                      [honu-^ ^]
+                     [honu-cons ::]
                      [honu-and and]
                      [honu-or or]
                      [literal:honu-= =]

collects/honu/core/private/honu2.rkt

@@ -91,3 +91,4 @@
 (define-binary-operator honu-^ 2 expt)
 (define-binary-operator honu-and 0.5 and)
 (define-binary-operator honu-or 0.5 or)
+(define-binary-operator honu-cons 0.1 cons)

collects/honu/core/read.rkt

@@ -23,7 +23,8 @@
 
 (define-lex-abbrev digit (:/ #\0 #\9))
 (define-lex-abbrev identifier-first-character (:or (:/ #\a #\z)
-                                                   (:/ #\A #\Z)))
+                                                   (:/ #\A #\Z)
+                                                   ":"))
 (define-lex-abbrev identifier-character (:or identifier-first-character
                                              digit))
 (define-lex-abbrev identifier (:: identifier-first-character