Fix regex cache initialization order
ober
a7102f4d1b50edcd27b556a6e4a4f2d3c7a1ab5c
--- a/lib/jerboa-awk/runtime.sls +++ b/lib/jerboa-awk/runtime.sls @@ -71,11 +71,11 @@ ;;; ---- Regex pattern cache ---- - (define *regex-cache* (make-regex-cache)) - (define (make-regex-cache) (make-hashtable equal-hash equal?)) + (define *regex-cache* (make-regex-cache)) + (define (regex-cache-lookup cache pattern) (let ((cached (hashtable-ref cache pattern #f))) (if cached