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

use namespace-variable-value for !defined, and add !syntax

Browse Source 
svn: r12433
This commit is contained in:
Eli Barzilay 2008-11-13 22:19:33 +00:00
parent 4f904c3b4b
commit f4f559fc3b
2 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/handin-server/checker.ss
View File

@ -654,9 +654,26 @@
(define-syntax-rule (!defined id ...)
;; expected to be used only with identifiers
(begin (with-handlers ([exn:fail:contract:variable?
(lambda (_)
(error* "missing binding: ~e" (->disp 'id)))]
[exn:fail:syntax?
(lambda (_)
(error* "bound to a syntax, expecting a value: ~e"
(->disp 'id)))])
(namespace-variable-value `id #t #f
(get-namespace (submission-eval))))
...))
(provide !syntax)
(define-syntax-rule (!syntax id ...)
;; expected to be used only with identifiers
(begin (with-handlers ([exn:fail:syntax? void]
[exn:fail:contract:variable?
(lambda (_)
(error* "missing binding: ~e" (->disp 'id)))])
((submission-eval) `id))
(namespace-variable-value `id #t #f
(get-namespace (submission-eval)))
(error* "bound to a value, expecting a syntax: ~e" (->disp 'id)))
...))
(provide !procedure* !procedure)

4
collects/handin-server/scribblings/checker.scrbl
View File

@ -333,6 +333,10 @@ code.}
Checks that @scheme[id] is defined, and is bound to a procedure.}
@defform[(!syntax id arity)]{
Checks that @scheme[id] is defined, and is bound as a macro.}
@defform[(!procedure* expr arity)]{
Similar to @scheme[!procedure] but omits the defined check, making