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

added nand, nor, and implies to racket/bool

Browse Source 
original commit: 4b2f78477a2f6144044fc2645750f07be923d85d
This commit is contained in:
Robby Findler 2012-02-19 08:04:16 -06:00
parent 0bc53ba416
commit b2faf6534a
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/etc.rkt
View File

@ -162,14 +162,6 @@
[(t a ...) (raise-syntax-error #f "invalid clause" stx s)])) [(t a ...) (raise-syntax-error #f "invalid clause" stx s)]))
(syntax->list (syntax (something ...))))])) (syntax->list (syntax (something ...))))]))
(define-syntax (nor stx)
(syntax-case stx ()
[(_ expr ...) (syntax/loc stx (not (or expr ...)))]))
(define-syntax (nand stx)
(syntax-case stx ()
[(_ expr ...) (syntax/loc stx (not (and expr ...)))]))
(define-syntax (let+ stx) (define-syntax (let+ stx)
(syntax-case stx () (syntax-case stx ()
[(_ [clause ...] body1 body ...) [(_ [clause ...] body1 body ...)