suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add some error checking for custom set type constructors

Browse Source
This commit is contained in:
Robby Findler 2015-12-28 16:58:35 -06:00
parent 50405a2ca9
commit ff31b01505
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/private/set-types.rkt
View File

@ -866,6 +866,8 @@
(define (immutable-custom-set-maker spec name)
(define (proc [st '()])
(unless (stream? st)
(raise-argument-error name "stream?" st))
(dprintf "~a\n" name)
(define table
(for/fold ([table (make-immutable-hash)]) ([x (in-stream st)])
@ -876,6 +878,8 @@
(define (imperative-custom-set-maker spec name make-table make-set)
(define (proc [st '()])
(unless (stream? st)
(raise-argument-error name "stream?" st))
(dprintf "~a\n" name)
(define table (make-table))
(for ([x (in-stream st)])