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

Fixed PR 8324

Browse Source 
attached (lib "cached-image-snip.ss" "mrlib") into user namespace
  refactored namespace creation code

svn: r4567
This commit is contained in:
Ryan Culpepper 2006-10-12 20:11:13 +00:00
parent 0ce1ee145e
commit 870eba1f15
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/handin-server/utils.ss
View File

@ -175,17 +175,32 @@
(define coverage-enabled (make-parameter #f)) (define coverage-enabled (make-parameter #f))
(define modules-to-attach
(list '(lib "posn.ss" "lang")
'(lib "cache-image-snip.ss" "mrlib")))
(define (make-evaluation-namespace)
(let ([new-ns (make-namespace-with-mred)]
[orig-ns (current-namespace)])
(for-each (lambda (mod) (dynamic-require mod #f))
modules-to-attach)
(let ([modsyms
(map (lambda (mod) ((current-module-name-resolver) mod #f #f))
modules-to-attach)])
(parameterize ((current-namespace new-ns))
(for-each (lambda (ms) (namespace-attach-module orig-ns ms))
modsyms)))
new-ns))
(define (make-evaluator language teachpacks program-port) (define (make-evaluator language teachpacks program-port)
(let ([coverage-enabled (coverage-enabled)] (let ([coverage-enabled (coverage-enabled)]
[execute-counts #f] [execute-counts #f]
[ns (make-namespace-with-mred)] [ns (make-evaluation-namespace)]
[orig-ns (current-namespace)] [orig-ns (current-namespace)])
[posn-module ((current-module-name-resolver) '(lib "posn.ss" "lang") #f #f)])
(parameterize ([current-namespace ns] (parameterize ([current-namespace ns]
[read-case-sensitive #t] [read-case-sensitive #t]
[read-decimal-as-inexact #f] [read-decimal-as-inexact #f]
[current-inspector (make-inspector)]) [current-inspector (make-inspector)])
(namespace-attach-module orig-ns posn-module)
(parameterize ([current-eventspace (make-eventspace)]) (parameterize ([current-eventspace (make-eventspace)])
(let ([ch (make-channel)] (let ([ch (make-channel)]
[result-ch (make-channel)]) [result-ch (make-channel)])