Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Moving around test files

Browse source
This commit is contained in:
Justin Ethier 2016-02-02 23:10:05 -05:00
parent 93a7a9d2eb
commit 6eb6a4feec
2 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

0
macro-test.scm → debug/macro-test.scm
View file

21
kons.scm Normal file
View file

@ -0,0 +1,21 @@
;; 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