You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
3.2 KiB
Scheme
47 lines
3.2 KiB
Scheme
27 years ago
|
(let ([gen:477:join-env (void)]
|
||
|
|
[gen:473:extend-env* (void)]
|
||
|
|
[gen:476:extend-env (void)]
|
||
|
|
[gen:474:lookup (void)]
|
||
|
|
[gen:475:empty-env (void)])
|
||
|
|
(begin (set! gen:475:empty-env '())
|
||
|
|
(begin (set! gen:474:lookup
|
||
|
|
(lambda (gen:493:env gen:492:x)
|
||
|
|
(let ([gen:494:r (assq gen:492:x gen:493:env)])
|
||
|
|
(if (eq? gen:494:r '#f)
|
||
|
|
(error 'lookup '"no binding for ~a" gen:492:x)
|
||
|
|
(cdr gen:494:r)))))
|
||
|
|
(begin (set! gen:476:extend-env
|
||
|
|
(lambda (gen:491:env gen:489:x gen:490:v)
|
||
|
|
(cons (cons gen:489:x gen:490:v) gen:491:env)))
|
||
|
|
(begin (set! gen:473:extend-env*
|
||
|
|
(lambda (gen:488:env gen:486:xs gen:487:vs)
|
||
|
|
(append (map2 cons gen:486:xs gen:487:vs) gen:488:env)))
|
||
|
|
(begin (set! gen:477:join-env
|
||
|
|
(lambda (gen:485:env gen:484:newenv)
|
||
|
|
(append gen:484:newenv gen:485:env)))
|
||
|
|
(make-rs:module
|
||
|
|
(lambda (gen:478:msg)
|
||
|
|
(let ([gen:479:%%tmp gen:478:msg])
|
||
|
|
(if (memv gen:479:%%tmp '(empty-env))
|
||
|
|
gen:475:empty-env
|
||
|
|
(let ([gen:480:%%tmp gen:478:msg])
|
||
|
|
(if (memv gen:480:%%tmp '(lookup))
|
||
|
|
gen:474:lookup
|
||
|
|
(let ([gen:481:%%tmp gen:478:msg])
|
||
|
|
(if (memv gen:481:%%tmp '(extend-env))
|
||
|
|
gen:476:extend-env
|
||
|
|
(let ([gen:482:%%tmp gen:478:msg])
|
||
|
|
(if (memv gen:482:%%tmp '(extend-env*))
|
||
|
|
gen:473:extend-env*
|
||
|
|
(let ([gen:483:%%tmp gen:478:msg])
|
||
|
|
(if (memv gen:483:%%tmp '(join-env))
|
||
|
|
gen:477:join-env
|
||
|
|
(error 'import
|
||
|
|
'"attempting to import ~s~n from module with signature ~s"
|
||
|
|
gen:478:msg
|
||
|
|
'(empty-env
|
||
|
|
lookup
|
||
|
|
extend-env
|
||
|
|
extend-env*
|
||
|
|
join-env))))))))))))))))))))
|