Define UVECTOR and ATOM

[muddle-interpreter.git] / src / main.c

diff --git a/src/main.c b/src/main.c
index 0819cc9abd0cea517935ad69c786fc8779a9a747..6645f6e4564f72f72f67d1bea7949761452be844 100644 (file)
--- a/src/main.c
+++ b/src/main.c
@@ -105,9 +105,9 @@ main ()
       // Eval the thing
       cf->prevcst = cst;
       push_frame (eval, new_tuple (st.pos, 1), 0);
-      while (cf->cont.fn)
+      while (cf->cont.val.fn)
        {
-         cf->cont.fn ();
+         cf->cont.val.fn ();
        }
       // Print the thing
       print_object (&ret);