Expected results for test: P3-54.pl460

P3-54.pl460 :

;;; This is a test program for the interpreter
;;; It is designed to read values from standard
;;; input and store them in a list.

(define (read_list)
	(let ((a (read)))
		(if (not (eof? a))
			(cons a (read_list))
			'()
		)
	)
)

(define (main)
	(display (read_list))
	(newline)
	(display (read_list))
	(newline)
)

(main)

Input file: P3-54.pl460

0 errors found in input file
P3-54.cpp :

// Autogenerated PL460 to C++ Code
// File: P3-54.cpp

#include <iostream>
#include "Object.h"
using namespace std;


Object read_list ()
{
	Object __RetVal;
	{
		Object a = read(cin);
		if (! (Object("#<eof>") == a))
		{
			__RetVal = listop ("cons", a, read_list());
		}
		else
		{
			__RetVal = Object("()");
		}
	}
	return __RetVal;
}

int main ()
{
	Object __RetVal;
	cout << read_list();
	cout << endl;
	cout << read_list();
	cout << endl;
	return 0;
}

PL460 program output: 

(12 3.4 Hello World (1 2 3) 5/3)
()

C++ program output: 

(12 3.4 Hello World (1 2 3) 5/3)
()

Differences:			      < pl460 | cpp >

(12 3.4 Hello World (1 2 3) 5/3)		(12 3.4 Hello World (1 2 3) 5/3)
()						()