Roll Observatory packages and add a roll script

packages/petitparser/lib/src/lisp/natives.dart

-part of lisp;
+part of petitparser.lisp;
 
-/**
- * The native functions.
- */
+/// The native functions.
 class Natives {
 
-  /** Imports the native functions into the [environment]. */
+  /// Imports the native functions into the [environment].
   static Environment import(Environment environment) {
 
     // basic functions
     environment.define(new Name('define'), _define);
     environment.define(new Name('lambda'), _lambda);
     environment.define(new Name('quote'), _quote);
     environment.define(new Name('eval'), _eval);
     environment.define(new Name('apply'), _apply);
     environment.define(new Name('let'), _let);
     environment.define(new Name('set!'), _set);
@@ skipping 35 matching lines @@
     if (args.head is Name) {
       return env.define(args.head, evalList(env, args.tail));
     } else if (args.head.head is Name) {
       return env.define(
           args.head.head, _lambda(env, new Cons(args.head.tail, args.tail)));
     } else {
       throw new ArgumentError('Invalid define: $args');
     }
   }
 
-  static _lambda(Environment lambda_env, lambda_args) {
-    return (Environment env, args) {
-      var inner = lambda_env.create();
-      var names = lambda_args.head;
-      var values = evalArguments(env, args);
+  static _lambda(Environment lambdaEnv, lambdaArgs) {
+    return (Environment evalEnv, evalArgs) {
+      var inner = lambdaEnv.create();
+      var names = lambdaArgs.head;
+      var values = evalArguments(evalEnv, evalArgs);
       while (names != null && values != null) {
         inner.define(names.head, values.head);
         names = names.tail;
         values = values.tail;
       }
-      return evalList(inner, lambda_args.tail);
+      return evalList(inner, lambdaArgs.tail);
     };
   }
 
   static _quote(Environment env, args) {
     return args;
   }
 
   static _eval(Environment env, args) {
     return eval(env.create(), eval(env, args.head));
   }
@@ skipping 162 matching lines @@
   }
 
   static _cdrSet(Environment env, args) {
     var cons = eval(env, args.head);
     if (cons is Cons) {
       cons.tail = eval(env, args.tail.head);
     }
     return cons;
   }
 }