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

Commit forgotten part of rev 16038.

Browse Source 
svn: r16044
This commit is contained in:
Mike Sperber 2009-09-17 15:15:30 +00:00
parent 368b491474
commit c94c63ebe1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/deinprogramm/quickcheck/quickcheck.ss
View File

@ -27,9 +27,15 @@
(require srfi/9
"random.ss")
(provide exn:assertion-violation?
exn:assertion-violation-who
exn:assertion-violation-irritants)
(define-struct (exn:assertion-violation exn:fail) (who irritants) #:transparent)
; exceptions
(define (assertion-violation who msg . irritants)
(apply error msg irritants))
(raise (make-exn:assertion-violation msg (current-continuation-marks) who irritants)))
; extended-ports
(define make-string-output-port open-output-string)
@ -41,4 +47,3 @@
(require scheme/include)
(include "quickcheck.scm")