[honu] still need :=

This commit is contained in:
Jon Rafkind 2012-01-25 18:35:01 -07:00
parent d7a35c1eb8
commit 2b6efee854
2 changed files with 3 additions and 3 deletions

View File

@ -50,7 +50,7 @@
[honu->= >=]
[honu-<= <=]
;; [honu-equal =]
;; [honu-assignment :=]
[honu-assignment :=]
[honu-map map]
[honu-flow \|]
[honu-dot %dot]

View File

@ -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)))