mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
14 lines
362 B
Scheme
14 lines
362 B
Scheme
;-*-Scheme-*-
|
|
|
|
|
|
(test-setup 'efgh #f)
|
|
|
|
(let ((my-pair (cons (cons 'a 'b) (cons 'c 'd))))
|
|
(set! (car (car my-pair)) 'e)
|
|
(set! (car (cdr my-pair)) 'f)
|
|
(set! (cdr (car my-pair)) 'g)
|
|
(set! (cdr (cdr my-pair)) 'h)
|
|
(format #t "~A~A~A~A~%" (car (car my-pair)) (car (cdr my-pair)) (cdr (car my-pair)) (cdr (cdr my-pair)))
|
|
(format #t "~A~%" my-pair)
|
|
)
|