;; -*-theme-d-*-

;; Copyright (C) 2008-2013 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK
;; Expected output:
;;   #f #f #t #t #t #t


(define-proper-program (tests test26)


  (import (standard-library core)
	  (standard-library console-io))


  (define-simple-proc main (() <none> nonpure)
    (let* ((pr1 (cons 1 2.3))
	   (pr2 (cons "abc" 'def))
	   (ch1? (equal? pr1 pr2))
	   (ch2? (equal-objects? pr1 pr2))
	   (ch3? (equal? pr1 pr1))
	   (ch4? (equal-objects? pr1 pr1)) 
	   (ch5? (equal? pr2 pr2))
	   (ch6? (equal-objects? pr2 pr2)))
      (console-display ch1?)
      (console-newline)
      (console-display ch2?)
      (console-newline)
      (console-display ch3?)
      (console-newline)
      (console-display ch4?)
      (console-newline)
      (console-display ch5?)
      (console-newline)
      (console-display ch6?)
      (console-newline))))
