
;; Copyright (C) 2017 Tommi Höynälänmaa

;; Expected results: translation and running OK

(define-proper-program (tests test594)

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

  (prelink-body (standard-library core))

  (define p (cons 4 5))

  (define-syntax p.car (identifier-syntax (car p)))

  (define-simple-proc main (() <none> nonpure)
    (console-display-line p.car)))
