diff options
| author | JJ | 2024-10-23 21:02:47 +0000 |
|---|---|---|
| committer | JJ | 2024-10-24 00:26:25 +0000 |
| commit | 9b1389448b5e29e2baa8a48e5e9c4b24bae207c9 (patch) | |
| tree | a3de1da5046dc15ca582507be527c080f06551ca /stlc-fix.rkt | |
| parent | e6cf303d3acce1d82e1dc477efc67867cbacf3c3 (diff) | |
minor identifier changes
Diffstat (limited to 'stlc-fix.rkt')
| -rw-r--r-- | stlc-fix.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stlc-fix.rkt b/stlc-fix.rkt index 2c68696..420aa15 100644 --- a/stlc-fix.rkt +++ b/stlc-fix.rkt @@ -17,7 +17,7 @@ (match (interpret-core e Γ) [`(λ ,x ,e ,env) ; FIXME: unsure what should be Γ and what should be env - (interpret-core e (dict-set Γ x `(fix (λ ,x ,e ,Γ))))] + (interpret-core e (dict-set env x `(fix (λ ,x ,e ,Γ))))] [e (err (format "applying fix to unknown expression ~a" e))])] [`(λ ,id ,body) `(λ ,id ,body ,Γ)] |