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

Adding notes

Browse source
This commit is contained in:
Justin Ethier 2022-05-25 17:42:05 -04:00
parent 43267e2939
commit 460147601f
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
circ-test.scm
View file

@ -15,3 +15,13 @@
(define l2 (list l1)) (define l2 (list l1))
(set-cdr! l1 l2) (set-cdr! l1 l2)
(display l1) (display l1)
; TODO: need to compare pointers to prevent this sort of thing:
;
; cyclone> (display #(1 1 1 1 1 1 1 1))
; #(... ... ... ... ... ... ... ...)
;
; for equalp of pairs we track progress using cdr, cddr
; proves that if pointers are equal we are traversing the same list
;
; how to handle vector traversal?