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

Reimplemented assert as a macro.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-06-15 12:27:28 -04:00
parent 93e5d0e9dc
commit 8dfd7d87ec
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/typed-scheme/private/extra-procs.rkt
View File

@ -1,8 +1,10 @@
#lang scheme/base #lang scheme/base
(provide assert) (provide assert)
(define (assert v [pred values]) (define-syntax assert
(unless (pred v) (syntax-rules ()
(error "Assertion failed")) ((assert v)
v) (or v (error "Assertion failed")))
((assert v pred)
(let ((val v))
(if (pred val) val (error "Assertion failed"))))))