Commit 15f21cb8 authored by Guy Watson's avatar Guy Watson
Browse files

Improve some error printing

parent 77ade31a
......@@ -648,7 +648,7 @@
render-hole-info
[#f (λ (n)
(append
`(hole!!! <,(ast-node-type n)>)))])
`(,(string->symbol (format "HOLE<~a>" (get-base-type-name n))))))])
(add-att-rule
wasm-like math-op
......@@ -701,7 +701,7 @@
instruction] ;; floats don't need any suffixes
[else
(begin
(eprintf "Node type not a base type when adding a signed suffix")
(eprintf "Node type not a base type when adding a signed suffix\n")
'ERROR)])))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment