id,summary,reporter,owner,description,type,status,priority,milestone,component,resolution,keywords,cc,planetversion,pltversion
252,collector language's test/exn doesn't work,robby,plai,"The program below should show a passed test, but it shows a failed one.

#lang planet plai/plai:1:14/collector
(test/exn (car 1) ""car"")

;; init-allocator : -> void
(define (init-allocator) (void))
  
;; gc:deref : loc -> heap-value
(define (gc:deref loc) #t)

;; gc:alloc-flat : heap-value -> loc
(define (gc:alloc-flat fv) 0)

;; gc:cons : loc loc -> loc
(define (gc:cons hd tl) 0)

;; gc:first : loc -> loc
(define (gc:first pr-ptr) 0)

;; gc:rest : loc -> loc
(define (gc:rest pr-ptr) 0)

;; gc:flat? : loc -> boolean
(define (gc:flat? loc) #t)

;; gc:cons? : loc -> boolean
(define (gc:cons? loc) #f)

;; gc:set-first! : loc loc -> void
(define (gc:set-first! pr-ptr new)
  (error 'set-first! ""unsupported""))

;; gc:set-rest! : loc loc -> void
(define (gc:set-rest! pr-ptr new)
  (error 'set-rest! ""unsuppored""))
",defect,closed,major,,plai/plai.plt,invalid,,,(1 15),4.2.4.2