remove dependencies

pull/9/head
Matthew Butterick 10 years ago
parent a518502aca
commit 88600643de

@ -1,6 +1,5 @@
#lang racket/base
(require racket/rerequire)
(require "debug.rkt" sugar/coercion/values)
;; The cache is a hash with paths as keys.
;; The cache values are also hashes, with key/value pairs for that path.
@ -13,6 +12,9 @@
(define (make-cache) (make-hash))
(define (->complete-path path-string)
(path->complete-path (if (string? path-string) (string->path path-string) path-string)))
(define (cache-ref path-string)
(hash-ref (current-cache) (->complete-path path-string)))
@ -28,7 +30,6 @@
(hash-set! cache-hash 'metas (dynamic-require path 'metas))
(void))
(define (cached-require path-string key)
(when (not (current-cache)) (error "cached-require: No cache set up."))

Loading…
Cancel
Save