Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6627e22274
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (20 sloc) 0.765 kb
(use arc extend-ontype)
(defrule type (ar-tnil (racket-namespace? x))
'runtime)
(with (orig bound default (list 'default))
(redef bound (name (o runtime))
(if runtime
(isnt (racket-namespace-variable-value
name (ail-code #t) (fn () default) runtime)
default)
(orig name))))
(extend-ontype ar-apply-non-fn runtime (runtime (varname))
(ail-code (racket-namespace-variable-value varname #t #f runtime)))
(extend-ontype sref runtime (runtime value varname)
(ail-code (racket-namespace-set-variable-value!
varname value #t runtime)))
(def runtime ((o uses) (o usepath (usepath*)))
(let runtime (new-runtime usepath)
(each item uses
(runtime!use-apply item))
runtime))
Jump to Line
Something went wrong with that request. Please try again.