X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flibpspp%2Fgetl.c;h=b4617122677840ecd65a9670a3d424e3f03964d6;hb=baf657198fcf0cabe289246dc07a82da67c86f5b;hp=180258fced3feb85404c2c0a3031637c90bc32b1;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp-builds.git

diff --git a/src/libpspp/getl.c b/src/libpspp/getl.c
index 180258fc..b4617122 100644
--- a/src/libpspp/getl.c
+++ b/src/libpspp/getl.c
@@ -94,7 +94,7 @@ getl_append_source (struct source_stream *ss, struct getl_interface *i)
 
   s->interface = i ;
 
-  ll_push_head (&ss->sources, &s->ll);
+  ll_push_tail (&ss->sources, &s->ll);
 }
 
 /* Nests source S within the current source file. */
@@ -210,6 +210,7 @@ bool
 getl_read_line (struct source_stream *ss, struct string *line,
 		enum getl_syntax *syntax)
 {
+  assert (ss != NULL);
   while (!ll_is_empty (&ss->sources))
     {
       struct getl_source *s = current_source (ss);