23 lines
611 B
Racket
23 lines
611 B
Racket
#lang racket/base
|
|
|
|
(require honu/core/private/macro2
|
|
(for-syntax syntax/parse
|
|
racket/base
|
|
honu/core/private/literals
|
|
honu/core/private/parse2))
|
|
|
|
(provide sqr)
|
|
(define (sqr x) (* x x))
|
|
|
|
(provide honu-cond)
|
|
(define-honu-syntax honu-cond
|
|
(lambda (code context)
|
|
(syntax-parse code #:literal-sets (cruft)
|
|
[(_ (~seq clause:honu-expression colon body:honu-expression (~optional honu-comma)) ...
|
|
semicolon . rest)
|
|
(values
|
|
#'(cond
|
|
[clause.result body.result] ...)
|
|
#'rest
|
|
#t)])))
|