mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

types.scm (env-variable-address): Reverted the last change.

Browse source
This commit is contained in:
Keisuke Nishida 2000-08-22 17:39:49 +00:00
parent 307cdcf0d0
commit fd329e8725
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
vm/types.scm
View file

@ -271,14 +271,19 @@
(define (get-offset obj list) (define (get-offset obj list)
(- (length list) (length (memq obj list)))) (- (length list) (length (memq obj list))))
(define-generic env-variable-address) (define-public (env-variable-address env var)
(define-method (env-variable-address (env <vm:env>) (var <vm:local-var>))
(env-finalize! env) (env-finalize! env)
(cond ((local-variable? var)
(env-local-variable-address env var))
((external-variable? var)
(env-external-variable-address env var))
(else
(error "Wrong type argument: ~S" var))))
(define (env-local-variable-address env var)
(get-offset (variable-location var) (env-locations env))) (get-offset (variable-location var) (env-locations env)))
(define-method (env-variable-address (env <vm:env>) (var <vm:external-var>)) (define (env-external-variable-address env var)
(env-finalize! env)
(let loop ((depth 0) (env env)) (let loop ((depth 0) (env env))
(let ((list (env-externals env))) (let ((list (env-externals env)))
(cond ((null? list) (cond ((null? list)