Advertisement
Guest User

Untitled

a guest
Nov 18th, 2013
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Diff 0.56 KB | None | 0 0
  1. diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
  2. index 21615f4..48ef722 100644
  3. --- a/src/jvm/clojure/lang/Compiler.java
  4. +++ b/src/jvm/clojure/lang/Compiler.java
  5. @@ -1861,6 +1861,11 @@ static class ConstantExpr extends LiteralExpr{
  6.         public Expr parse(C context, Object form){
  7.             Object v = RT.second(form);
  8.  
  9. +           if ( RT.count(form) > 2 ) {
  10. +               throw new IllegalArgumentException
  11. +                   ("Must provide at most one argument to `quote'.");
  12. +           }
  13. +
  14.             if(v == null)
  15.                 return NIL_EXPR;
  16.             else if(v == Boolean.TRUE)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement