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

Include missing arg

Browse source
This commit is contained in:
Justin Ethier 2019-05-21 17:46:33 -04:00
parent 6920b8f568
commit abe40532c3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/eval.sld
View file

@ -434,7 +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 (Cyc-set-immutable! qval #t) ;; TODO: OK? Don't want to modify a persistent object
(lambda (env) qval))) (lambda (env) qval)))
(define-c assoc-cdr (define-c assoc-cdr