mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-28 06:25:04 +02:00
21 lines
385 B
Scheme
21 lines
385 B
Scheme
;; A temporary test file
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(srfi 9))
|
|
|
|
(define-record-type <pare>
|
|
(kons x y)
|
|
pare?
|
|
(x kar set-kar!)
|
|
(y kdr))
|
|
|
|
;(write
|
|
; (list
|
|
; (pare? (kons 1 2)) ; =. #t
|
|
; (pare? (cons 1 2)) ; =. #f
|
|
; (kar (kons 1 2)) ; =. 1
|
|
; (kdr (kons 1 2)) ; =. 2
|
|
; (let ((k (kons 1 2)))
|
|
; (set-kar! k 3)
|
|
; (kar k)))) ;=. 3
|
|
|