---

yaml
---
r: 2941
b: refs/heads/master
c: 3ca5fff
h: refs/heads/master
i:
  2939: 53a12e4
v: v3

Author: brson

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: ac83e34dc6c2bb3b5f181f923560d810dcdb558c
+refs/heads/master: 3ca5fff195cfb37e102d5686bbce4b570eb6fda2

trunk/src/comp/front/extenv.rs

@@ -23,13 +23,13 @@ fn expand_syntax_ext(&ext_ctxt cx,
                      option::t[str] body) -> @ast::expr {
 
     if (vec::len[@ast::expr](args) != 1u) {
-        p.err("malformed #env call");
+        cx.span_err(sp, "malformed #env call");
     }
 
     // FIXME: if this was more thorough it would manufacture an
     // option::t[str] rather than just an maybe-empty string.
 
-    auto var = expr_to_str(p, args.(0));
+    auto var = expr_to_str(cx, p, args.(0));
     alt (generic_os::getenv(var)) {
         case (option::none) {
             ret make_new_str(p, sp, "");
@@ -42,19 +42,23 @@ fn expand_syntax_ext(&ext_ctxt cx,
 
 // FIXME: duplicate code copied from extfmt:
 
-fn expr_to_str(parser::parser p,
+fn expr_to_str(&ext_ctxt cx, parser::parser p,
                @ast::expr expr) -> str {
     alt (expr.node) {
         case (ast::expr_lit(?l, _)) {
             alt (l.node) {
                 case (ast::lit_str(?s)) {
                     ret s;
                 }
+                case (_) {
+                    cx.span_err(l.span, "malformed #env call");
+                }
             }
         }
+        case (_) {
+            cx.span_err(expr.span, "malformed #env call");
+        }
     }
-    p.err("malformed #env call");
-    fail;
 }
 
 fn make_new_lit(parser::parser p, common::span sp, ast::lit_ lit)

trunk/src/test/compile-fail/extenv-no-args.rs

@@ -0,0 +1,5 @@
+// error-pattern:malformed #env call
+
+fn main() {
+  #env();
+}

trunk/src/test/compile-fail/extenv-not-string-literal.rs

@@ -0,0 +1,5 @@
+// error-pattern:malformed #env call
+
+fn main() {
+  #env(10);
+}

trunk/src/test/compile-fail/extenv-too-many-args.rs

@@ -0,0 +1,5 @@
+// error-pattern:malformed #env call
+
+fn main() {
+  #env("one", "two");
+}