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

Set immutable for evaluated quotes

Browse source
This commit is contained in:
Justin Ethier 2019-05-21 13:06:51 -04:00
parent e85a04fd81
commit 6920b8f568
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/eval.sld
View file

@ -434,6 +434,7 @@
(define (analyze-quoted exp) (define (analyze-quoted exp)
(let ((qval (cadr exp))) (let ((qval (cadr exp)))
(Cyc-set-immutable! qval) ;; TODO: OK? Don't want to modify a persistent object
(lambda (env) qval))) (lambda (env) qval)))
(define-c assoc-cdr (define-c assoc-cdr