X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fprocedure.c;h=422e7c05ca167a34552ac52d0f500cbc3c1a8fbd;hb=30728b09540b323fef43b23dd5f1e4d1e8298c92;hp=7f48709e2af4dd7727785f45f26ab56326d88c3a;hpb=8444d8d47de5e5f8d076b6f43f73c2c29494031e;p=pspp

diff --git a/src/procedure.c b/src/procedure.c
index 7f48709e2a..422e7c05ca 100644
--- a/src/procedure.c
+++ b/src/procedure.c
@@ -726,14 +726,6 @@ free_case_source (struct case_source *source)
     }
 }
 
-/* Returns nonzero if a case source is "complex". */
-int
-case_source_is_complex (const struct case_source *source) 
-{
-  return source != NULL && (source->class == &input_program_source_class
-                            || source->class == &file_type_source_class);
-}
-
 /* Returns nonzero if CLASS is the class of SOURCE. */
 int
 case_source_is_class (const struct case_source *source,
@@ -1012,6 +1004,4 @@ discard_variables (void)
   process_if_expr = NULL;
 
   cancel_temporary ();
-
-  pgm_state = STATE_INIT;
 }