Commits

Jürgen Bömmels  committed 195698c

Mock-up Implementation of for-each

  • Participants
  • Parent commits b3e4181

Comments (0)

Files changed (1)

File scheme/procedure.py

         # XXX need to find out how to do this tailrecusive
         return (Reverse().procedure(ctx,[w_rev_result]), None)
 
+class ForEach(W_Procedure):
+    _symbol_name = "for-each"
+
+    def procedure_tr(self, ctx, lst):
+        # simply relay to map and ignore output
+        (res, ctx) = Map().procedure_tr(ctx, lst)
+        return (w_undefined, ctx)
+    
 ##
 # Equivalnece Predicates
 ##