Added for loop, break statement not implemented yet.

lispy.c

@@ -129,6 +129,8 @@ object *h_vector(object *exp, object *env);
 object *h_length(object *obj);
 object *h_list(object *exp, object *env);
 object *h_string(object *exp, object *env);
+object *h_for(object *exp, object *env);
+
 object *h_emptyp(object *obj);
 
 
@@ -1307,6 +1309,11 @@ object *eval(object *exp, object *env) {
     return h_vector(cdr(exp), env);
   }
 
+  /**  for  **/
+  else if (is_primitive_syntax(exp, for_symbol)) {
+    return h_for(cdr(exp), env);
+  }
+
   /**  Application  **/
   else if (is_application(exp)) {
     procedure = eval(car(exp), env);
@@ -2540,6 +2547,23 @@ object *make_expression(object *exp, object *var) {
   }
 }
 
+
+//  for
+
+object *h_for(object *exp, object *env) {
+  object *var = car(exp);
+  object *seq = eval(caddr(exp), env);
+  object *expression = make_expression(cadddr(exp), var);
+  object *result;
+
+  while (h_emptyp(seq) != True) {
+    result = eval(make_application(expression, h_first(seq)), env);
+    seq = h_rest(seq);
+  }
+  return result;
+}
+
+
 //  list
 
 object *h_list_for(object *exp, object *env) {

unit_test.lispy

@@ -758,6 +758,24 @@
 )
 
 
+
+;;  Iterators
+;;_______________________________________________________;;
+
+;;  for
+;;_________________________;;
+
+(test
+  (for ii in '(1 2 3) ii)
+  >>> 3
+  (for ii in #(1 2 3) ii)
+  >>> 3
+  (for ii in "hello" ii)
+  >>> #\o
+)
+
+
+
 ;;  Sequence Procedures
 ;;_______________________________________________________;;