[honu] move core definition of honu-syntax to another module

collects/honu/core/private/class.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require "macro2.rkt"
+(require "syntax.rkt"
          "literals.rkt"
          (only-in "honu2.rkt" honu-declaration separate-ids)
          (for-syntax racket/base

collects/honu/core/private/honu2.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require "macro2.rkt"
+(require "syntax.rkt"
          "operator.rkt"
          "struct.rkt"
          "honu-typed-scheme.rkt"

collects/honu/core/private/macro2.rkt

@@ -1,7 +1,6 @@
 #lang racket/base
 
 (require (for-syntax "transformer.rkt"
-                     syntax/define
                      syntax/parse
                      syntax/stx
                      racket/syntax
@@ -14,18 +13,11 @@
                      "parse2.rkt"
                      "compile.rkt")
          "literals.rkt"
+         "syntax.rkt"
          #;
          (for-syntax "honu-typed-scheme.rkt")
          syntax/parse)
 
-(provide define-honu-syntax)
-(define-syntax (define-honu-syntax stx)
-  (let-values ([(id rhs) (normalize-definition stx #'lambda #f)])
-    (with-syntax ([id id]
-                  [rhs rhs])
-      (syntax/loc stx
-                 (define-syntax id (make-honu-transformer rhs))))))
-
 (define-for-syntax (convert-pattern original-pattern)
   (define-splicing-syntax-class pattern-type
     #:literal-sets (cruft)

collects/honu/core/private/struct.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require "macro2.rkt"
+(require "syntax.rkt"
          "literals.rkt"
          (for-syntax racket/base
                      "parse2.rkt"

collects/honu/core/private/syntax.rkt

@@ -1,7 +1,11 @@
-#lang scheme
+#lang racket
 
 (provide (all-defined-out))
 
+(require (for-syntax syntax/define
+                     "transformer.rkt"))
+
+#|
 (define honu-scheme-syntax 'honu-scheme-syntax)
 
 (define (raw-scheme? stx)
@@ -9,3 +13,12 @@
 
 (define (apply-scheme-syntax stx)
   (syntax-property stx honu-scheme-syntax #t))
+|#
+
+(provide define-honu-syntax)
+(define-syntax (define-honu-syntax stx)
+  (let-values ([(id rhs) (normalize-definition stx #'lambda #f)])
+    (with-syntax ([id id]
+                  [rhs rhs])
+      (syntax/loc stx
+                 (define-syntax id (make-honu-transformer rhs))))))

collects/honu/core/private/transformer.rkt

@@ -51,4 +51,3 @@
       "procedure (arity 1)"
       unary))
   (-make-honu-operator precedence associativity binary unary))
-

collects/honu/private/common.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require honu/core/private/macro2
+(require honu/core/private/syntax
          honu/core/private/literals
          (for-syntax syntax/parse
                      racket/base