Merge branch 'master' of git@github.com:mzp/scheme-abc

[happyabc/happyabc.git] / src / lisp.ml

diff --git a/src/lisp.ml b/src/lisp.ml
index 56949f6..5f62c0a 100644 (file)
--- a/src/lisp.ml
+++ b/src/lisp.ml
@@ -4,9 +4,10 @@ open ClosTrans
 
 exception Syntax_error of string
 
-let symbol = function
-    Symbol n -> n
-  | _ -> failwith "expected symbol"
+let symbol = 
+  function
+      Symbol n -> n
+    | _ -> failwith "expected symbol"
 
 let qname symbol =
   try