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

Issue #132 - Protect against hang

Browse source
This commit is contained in:
Justin Ethier 2016-11-12 06:02:33 +00:00
parent ec108bdcef
commit 12770291b7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/cps-optimizations.sld
View file

@ -96,7 +96,8 @@
;; Follow references ;; Follow references
((ref? value) ((ref? value)
(with-var! value (lambda (var) (with-var! value (lambda (var)
(update-lambda-atv! (cons value syms) (adbv:assigned-value var))))) (if (not (member value syms))
(update-lambda-atv! (cons value syms) (adbv:assigned-value var))))))
(else (else
#f)) #f))
) )