From 8e9ec4a52a975551cd4689a1dbc332961f3c3ea9 Mon Sep 17 00:00:00 2001
From: Christophe Troestler <Christophe.Troestler@umons.ac.be>
Date: Tue, 6 Feb 2018 21:14:33 +0100
Subject: [PATCH] Do not accept the quoted form "->" in place of ->

---
 src/jbuild.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/jbuild.ml b/src/jbuild.ml
index 71cf224c..c8295080 100644
--- a/src/jbuild.ml
+++ b/src/jbuild.ml
@@ -356,7 +356,7 @@ module Lib_dep = struct
   let choice = function
     | List (_, l) as sexp ->
       let rec loop required forbidden = function
-        | [Atom (_, "->"); fsexp] | [Quoted_string (_, "->"); fsexp]  ->
+        | [Atom (_, "->"); fsexp] ->
           let common = String_set.inter required forbidden in
           if not (String_set.is_empty common) then
             of_sexp_errorf sexp
@@ -366,7 +366,7 @@ module Lib_dep = struct
           ; forbidden
           ; file = file fsexp
           }
-        | Atom (_, "->") :: _ | Quoted_string (_, "->") :: _
+        | Atom (_, "->") :: _
         | List _ :: _ | [] ->
           of_sexp_error sexp "(<[!]libraries>... -> <file>) expected"
         | (Atom (_, s) | Quoted_string (_, s)) :: l ->