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

use a more descriptive name in the identifier generated by define-on-demand

Browse Source 
so when it shows up in an error message it doesn't take forever to figure
out which 'val' that is

original commit: 0ee8155527bf0118c1b035efdcc5a6a2fac4828a
This commit is contained in:
Robby Findler 2012-07-15 08:04:45 -05:00
parent 0d977a560c
commit 11fd5a91ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/private/on-demand.rkt
View File

@ -5,8 +5,8 @@
(define-syntax-rule (define-on-demand id rhs) (define-syntax-rule (define-on-demand id rhs)
(begin (begin
(define val (delay rhs)) (define define-on-demand-bound-promise (delay rhs))
(define-syntax (id stx) (define-syntax (id stx)
(if (identifier? stx) (if (identifier? stx)
#'(force val) #'(force define-on-demand-bound-promise)
(raise-syntax-error #f "bad syntax" stx))))) (raise-syntax-error #f "bad syntax" stx)))))