Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-29 06:55:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added back test code now that it works

Browse source
This commit is contained in:
Justin Ethier 2016-02-04 22:45:14 -05:00
parent 5bb51a851a
commit ddfd09b1c2
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
kons.scm
View file

@ -17,11 +17,11 @@
(list (list
(pare? (kons 1 2)) ; =. #t (pare? (kons 1 2)) ; =. #t
(pare? (cons 1 2)) ; =. #f (pare? (cons 1 2)) ; =. #f
; (kar (kons 1 2)) ; =. 1 (kar (kons 1 2)) ; =. 1
; (kdr (kons 1 2)) ; =. 2 (kdr (kons 1 2)) ; =. 2
; (let ((k (kons 1 2))) (let ((k (kons 1 2)))
; (set-kar! k 3) (set-kar! k 3)
; (kar k)) ;=. 3 (kar k)) ;=. 3
)) ))
;(define <pare> (register-simple-type <pare> #f (quote (x y)))) ;(define <pare> (register-simple-type <pare> #f (quote (x y))))