diff --git a/collects/honu/core/main.rkt b/collects/honu/core/main.rkt index 0d8d25c314..d5f93c509f 100644 --- a/collects/honu/core/main.rkt +++ b/collects/honu/core/main.rkt @@ -50,7 +50,7 @@ [honu->= >=] [honu-<= <=] ;; [honu-equal =] - ;; [honu-assignment :=] + [honu-assignment :=] [honu-map map] [honu-flow \|] [honu-dot %dot] diff --git a/collects/honu/core/private/parse2.rkt b/collects/honu/core/private/parse2.rkt index bfa2c21129..6d4f2fa103 100644 --- a/collects/honu/core/private/parse2.rkt +++ b/collects/honu/core/private/parse2.rkt @@ -320,10 +320,10 @@ (if current (if binary-transformer (binary-transformer current stuff) - (error '#'head "cannot be used as a binary operator")) + (error 'binary "cannot be used as a binary operator in ~a" #'head)) (if unary-transformer (unary-transformer stuff) - (error '#'head "cannot be used as a unary operator")))) + (error 'unary "cannot be used as a unary operator in ~a" #'head)))) (emit-local-step stuff output #:id #'binary-transformer) (with-syntax ([out (parse-all output)]) #'(%racket out)))