;; -*-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


(define-proper-program (tests test706)

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

  (define-simple-proc main (() <none> nonpure)
    (console-display (member-general? 2 '(1 2 3) equal?))
    (console-newline)
    (console-display (member-general? -1 '(1 2 3 4 5) equal?))
    (console-newline)
    (console-display (member-general? (static-cast <pair> (cons 'a 'b))
				      (static-cast (:uniform-list <pair>)
						   '((1 . 2) (a . b)))
				      equal?))
    (console-newline)
    (console-display (member-general? (static-cast <pair> (cons 'a 'b))
				      (static-cast (:uniform-list <pair>)
						   '((1 . 2) (a . b)))
				      equal-objects?))
    (console-newline)))
