0. #lang racket/base
1. (require pict)
2.  
3. (define-namespace-anchor src-anchor)
4.  
5. (define pict-only-namespace
6.   (parameterize ([current-namespace (make-empty-namespace)])
7.     (namespace-attach-module (namespace-anchor->namespace src-anchor) 'pict)
8.     (namespace-require 'pict)
9.     (current-namespace)))
10.  
11. ;; `eval`s a string to a function from the `pict` module.
12. ;; Raises an exception if `pict` doesn't export an identifier that
13. ;;  matches the given string.
14. (define (string->pict-function str)
15.   (eval (string->symbol str) pict-only-namespace))
16.  
17. ((string->pict-function "vl-append") (blank 0 0))
18.  
19. (string->pict-function "string-append")

=>

string-append: unbound identifier;

also, no #%top syntax transformer is bound

in: string-append