Commits

Moritz Heidkamp committed 5af7dff

Remove explicit realize from plan-let

Now that plan-realization is parameterizable we don't need to pass the
realization function to plan-let explicitly anymore.

Comments (0)

Files changed (2)

 
 (define-syntax plan-let
   (syntax-rules ()
-    ((_ (realize (step value ...) ...) body ...)
-     (match-let (((step ...)
-                  (realize (plan (step value ...) ...)
-                           '(step ...))))
+    ((_ ((step value ...) ...) body ...)
+     (match-let
+         (((step ...)
+           (realize-plan
+            (plan (step value ...) ...)
+            '(step ...))))
        body ...))))
 
 (define (write-plan-dot plan #!optional (out (current-output-port)) (name "plan"))
 
 (test-group "plan-let"
   (plan-let
-   (realize-plan
-    (foo (bar qux) (* bar qux))
+   ((foo (bar qux) (* bar qux))
     (bar 10)
     (qux 99))
    (test foo 990)))