Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added env:all-variables

Browse source
This commit is contained in:
Justin Ethier 2016-08-06 18:59:53 -04:00
parent e044c362c2
commit 08f120658d
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/util.sld
View file

@ -24,6 +24,7 @@
env:frame-variables env:frame-variables
env:frame-values env:frame-values
env:add-binding-to-frame! env:add-binding-to-frame!
env:all-variables
env:extend-environment env:extend-environment
env:lookup env:lookup
env:lookup-variable-value env:lookup-variable-value
@ -204,6 +205,11 @@
(set-car! frame (cons var (car frame))) (set-car! frame (cons var (car frame)))
(set-cdr! frame (cons val (cdr frame)))) (set-cdr! frame (cons val (cdr frame))))
(define (env:all-variables env)
(flatten
(env:frame-variables
(env:first-frame env))))
(define (env:extend-environment vars vals base-env) (define (env:extend-environment vars vals base-env)
(if (= (length vars) (length vals)) (if (= (length vars) (length vals))
(cons (env:make-frame vars vals) base-env) (cons (env:make-frame vars vals) base-env)