(define (ylppa a b) (apply b a)) (define fileVal (let ((as '()) (rep "/Users/norm/cap-lore.com/code/Scheme/repository/")) (lambda (fn) (let ((p (assoc fn as))) (if p (cdr p) (let ((nv (call-with-input-file (string-append rep fn) (lambda (port) ((eval `(lambda (fileVal ylppa call/cc bitwise-and bitwise-ior bitwise-xor bitwise-not arithmetic-shift) ,(read port)) (scheme-report-environment 5)) fileVal ylppa call-with-current-continuation bitwise-and bitwise-ior bitwise-xor bitwise-not arithmetic-shift))))) (set! as (cons (cons fn nv) as)) nv))))))