mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
27 lines
638 B
Scheme
27 lines
638 B
Scheme
;; TODO: Temporary test file
|
|
(import (scheme base) (scheme write))
|
|
(define v1 (vector #f))
|
|
(define v2 (vector v1))
|
|
(vector-set! v1 0 v2)
|
|
(display v1)
|
|
;(equal? v1 v2)
|
|
|
|
(define v1 (vector 1 2 3))
|
|
(define v2 (vector 1 v1 3))
|
|
(vector-set! v1 1 v2)
|
|
(display v1)
|
|
|
|
(define l1 (list #f))
|
|
(define l2 (list l1))
|
|
(set-cdr! l1 l2)
|
|
(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?
|