From c735c88c2d197653f162825f6c825f0ede0f483f Mon Sep 17 00:00:00 2001 From: Leif Andersen Date: Wed, 8 Jun 2016 14:38:07 -0400 Subject: [PATCH] Add examples for resolve-module-path-index docs. --- .../syntax/scribblings/modresolve.scrbl | 22 +++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-doc/syntax/scribblings/modresolve.scrbl b/pkgs/racket-doc/syntax/scribblings/modresolve.scrbl index cada391532..efc4cc6c09 100644 --- a/pkgs/racket-doc/syntax/scribblings/modresolve.scrbl +++ b/pkgs/racket-doc/syntax/scribblings/modresolve.scrbl @@ -1,5 +1,13 @@ #lang scribble/doc -@(require "common.rkt" (for-label syntax/modresolve)) +@(require "common.rkt" scribble/eval + (for-label syntax/modresolve)) + +@(define (new-evaluator) + (let* ([e (make-base-eval)]) + (e '(require (for-syntax racket/base) syntax/modresolve)) + e)) + +@(define evaluator (new-evaluator)) @title{Resolving Module Paths to File Paths} @@ -27,4 +35,14 @@ If @racket[module-path-index] depends on the ``self'' module path index, then an exception is raised unless @racket[rel-to-path-v] is a path string. -See @racket[module-path-index-resolve].} +See @racket[module-path-index-resolve]. + +@examples[#:eval evaluator + (resolve-module-path-index + (module-path-index-join 'racket #f)) + (resolve-module-path-index + (module-path-index-join "apple.rkt" #f)) + (resolve-module-path-index + (module-path-index-join '(submod "." test) #f) + (string->path "banana.rkt"))] +} \ No newline at end of file