utils: Mention that auto-hash-ref/explicit and auto-hash-ref/: take 1 body.
This commit is contained in:
parent
cb45bea4c9
commit
a385f2e464
1 changed files with 3 additions and 0 deletions
|
@ -23,6 +23,7 @@
|
||||||
;;; (auto-hash-ref/explicit (ht a b) (+ a (* 2 b))))
|
;;; (auto-hash-ref/explicit (ht a b) (+ a (* 2 b))))
|
||||||
;;; 5
|
;;; 5
|
||||||
;;;
|
;;;
|
||||||
|
;;; Note that only one expression can be supplied in the body.
|
||||||
(define-syntax (auto-hash-ref/explicit stx)
|
(define-syntax (auto-hash-ref/explicit stx)
|
||||||
(syntax-parse stx
|
(syntax-parse stx
|
||||||
[(_ (ht:id xs:id ...) body:expr)
|
[(_ (ht:id xs:id ...) body:expr)
|
||||||
|
@ -40,6 +41,8 @@
|
||||||
;;;
|
;;;
|
||||||
;;; Note that the symbol :a is matched to the key 'a in the hash
|
;;; Note that the symbol :a is matched to the key 'a in the hash
|
||||||
;;; table.
|
;;; table.
|
||||||
|
;;;
|
||||||
|
;;; Note that only one expression can be supplied in the body.
|
||||||
(define-syntax (auto-hash-ref/: stx)
|
(define-syntax (auto-hash-ref/: stx)
|
||||||
(syntax-parse stx
|
(syntax-parse stx
|
||||||
[(_ ht:id body)
|
[(_ ht:id body)
|
||||||
|
|
Loading…
Reference in a new issue