cross-phase-splicing-list.rkt (948B)
1 (module cross-phase-splicing-list '#%kernel 2 (#%declare #:cross-phase-persistent) 3 (#%provide struct:splicing-list 4 splicing-list 5 splicing-list? 6 splicing-list-l) 7 (define-values (struct:splicing-list 8 splicing-list 9 splicing-list? 10 splicing-list-ref 11 _splicing-list-set!) 12 (#%app make-struct-type 13 'splicing-list ;; name 14 #f ;; super 15 1 ;; fields 16 0 ;; auto fields 17 #f ;; auto value 18 '() ;; props 19 #f ;; inspector 20 #f ;; proc-spec 21 (cons 0 '()) ;; immutables 22 #f ;; guard 23 'splicing-list)) ;; constructor-name 24 (define-values (splicing-list-l) 25 (lambda (instance) 26 (splicing-list-ref instance 0))))