1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
;; Copyright (C) 2017 Tommi Höynälänmaa
;; Expected results: translation and running OK
(define-proper-program (tests test596)
(import (standard-library core)
(standard-library console-io))
(prelink-body (standard-library core))
(define-class <my-pair>
(inheritance-access hidden)
(fields
(i1 <integer> public public)
(i2 <integer> public public)))
(define p (create <my-pair> 4 5))
(define-syntax p.car
(identifier-syntax
(_ (field-ref p 'i1))
((set! _ e) (field-set! p 'i1 e))))
(define-main-proc (() <none> nonpure)
(set! p.car 15)
(console-display-line p.car)))
|
